From 9490620e01122dd63b6f9b5e4e3f1eed99419ccb Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 25 Aug 2011 22:56:32 +0000
Subject: [PATCH] handle underscores better

---
 get_coverart | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/get_coverart b/get_coverart
index 41fb043..ea5f654 100755
--- 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);
-- 
2.39.5