handle underscores better

diff --git a/get_coverart b/get_coverart
index 41fb04317c48eadd648ab76102217b16849a5546..ea5f654a090cae7b457c63afa6cf17ca557e8b54 100755 (executable)
--- a/get_coverart
+++ b/get_coverart
@@ -95,7 +95,8 @@ my $content;
 my $parser;
 my $token;
 if (not length $options{asin}) {
-    my $url_end = uri_escape("$options{artist} $options{album}");
+    my ($artist,$album) = map {s/_/ /g; $_} @options{qw(artist album)};
+    my $url_end = uri_escape("$artist $album");
     mm_get($m,"http://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Dpopular&field-keywords=$url_end");
     $content = $m->content();
     $parser = HTML::TokeParser->new(\$content);