aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNigel Taylor <njtaylor0101@gmail.com>2012-11-06 12:45:54 +0000
committerNigel Taylor <njtaylor0101@gmail.com>2012-11-06 12:45:54 +0000
commitb0ccdd33f5a4682fa25ea88f83fd113c7bebd721 (patch)
treea8d5446648f5fe11edd3f053b208723afd01fbbe
parentdeb6f6b332b0fa3159640b12df30cfbad15ecc3d (diff)
downloadget-flash-videos-b0ccdd33f5a4682fa25ea88f83fd113c7bebd721.tar.gz
Fix for issue 449 Ima.pm not working.
-rw-r--r--lib/FlashVideo/Site/Ima.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/FlashVideo/Site/Ima.pm b/lib/FlashVideo/Site/Ima.pm
index a928e16..54a35c9 100644
--- a/lib/FlashVideo/Site/Ima.pm
+++ b/lib/FlashVideo/Site/Ima.pm
@@ -24,9 +24,10 @@ sub find_video {
}
sub can_handle {
- my($self, $browser) = @_;
+ my($self, $browser, $url) = @_;
- return $browser->uri->host =~ /ima\.umn\.edu/i;
+ my $host = URI->new($url)->host;
+ return $host =~ /ima\.umn\.edu/i;
}
1;