diff options
author | Nigel Taylor <njtaylor0101@gmail.com> | 2012-11-02 19:08:41 +0000 |
---|---|---|
committer | Nigel Taylor <njtaylor0101@gmail.com> | 2012-11-02 19:08:41 +0000 |
commit | bd9a69abb5aa66db45af866731eabe6a30bb7bab (patch) | |
tree | cfa407fc87a5299c5019cd61898243d0a5065355 | |
parent | 6e2106ce5ffc929c3ea2e69f66729b3f02bee332 (diff) | |
download | get-flash-videos-bd9a69abb5aa66db45af866731eabe6a30bb7bab.tar.gz |
compile and run issues on debian sequeeze add Encode::Locale required
by libwww-perl now included in combined-get-flash-videos
-rw-r--r-- | lib/FlashVideo/Mechanize.pm | 1 | ||||
-rw-r--r-- | lib/FlashVideo/Site/Kanal5play.pm | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lib/FlashVideo/Mechanize.pm b/lib/FlashVideo/Mechanize.pm index e58f5e9..a8ea01b 100644 --- a/lib/FlashVideo/Mechanize.pm +++ b/lib/FlashVideo/Mechanize.pm @@ -2,6 +2,7 @@ package FlashVideo::Mechanize; use WWW::Mechanize; use LWP::Protocol::https; +use Encode::Locale; use FlashVideo::Downloader; use Encode (); diff --git a/lib/FlashVideo/Site/Kanal5play.pm b/lib/FlashVideo/Site/Kanal5play.pm index 2b37ea8..b750efe 100644 --- a/lib/FlashVideo/Site/Kanal5play.pm +++ b/lib/FlashVideo/Site/Kanal5play.pm @@ -36,7 +36,7 @@ sub find_video { my ($playpath) = $json->{streams}[0]->{source}; my $i; - foreach $i (keys @{ $json->{streams} }) { + foreach $i (keys %{ $json->{streams} }) { my ($rate) = int($json->{streams}[$i]->{bitrate}); if($bitrates->{$prefs->{quality}} == $rate){ $playpath = $json->{streams}[$i]->{source}; |