diff options
| -rw-r--r-- | lib/UnsplashSource.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/UnsplashSource.pm b/lib/UnsplashSource.pm index e4c26aa..c41960e 100644 --- a/lib/UnsplashSource.pm +++ b/lib/UnsplashSource.pm @@ -8,6 +8,7 @@ use warnings; use URI; use HTTP::Tiny; use Carp qw( croak carp ); +use URI::Encode qw( uri_encode ); my $api = "https://source.unsplash.com"; my $http = HTTP::Tiny->new( @@ -51,7 +52,7 @@ sub random_search { push @segments, $options{resolution}; $url->path_segments( @segments ); - $url->query_keywords( \@{$options{search}} ); + $url->query_keywords( uri_encode(join(',', @{$options{search}})) ); return $http->head($url); } @@ -92,7 +93,7 @@ sub fixed { push @segments, "weekly" if $options{weekly}; $url->path_segments( @segments ); - $url->query_keywords( \@{$options{search}} ); + $url->query_keywords( uri_encode(join(',', @{$options{search}})) ); return $http->head($url); } |