diff options
| author | Nigel Taylor <njtaylor0101@gmail.com> | 2012-09-29 15:20:44 +0100 |
|---|---|---|
| committer | Nigel Taylor <njtaylor0101@gmail.com> | 2012-09-29 15:20:44 +0100 |
| commit | 75cf3ca858c229a39c0cf0a991e449de51560ed2 (patch) | |
| tree | 2267ca0b85f19f469250e8835876978b45f3b1cf | |
| parent | be9bade4233aff83381713d801ee18fc7a127121 (diff) | |
| download | get-flash-videos-75cf3ca858c229a39c0cf0a991e449de51560ed2.tar.gz | |
Resolve compile issues
| -rw-r--r-- | lib/FlashVideo/Site/Kanal5play.pm | 2 | ||||
| -rw-r--r-- | lib/FlashVideo/Site/Youtube.pm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/FlashVideo/Site/Kanal5play.pm b/lib/FlashVideo/Site/Kanal5play.pm index ce51639..2b37ea8 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}; diff --git a/lib/FlashVideo/Site/Youtube.pm b/lib/FlashVideo/Site/Youtube.pm index f5c58ad..293f3d6 100644 --- a/lib/FlashVideo/Site/Youtube.pm +++ b/lib/FlashVideo/Site/Youtube.pm @@ -61,8 +61,8 @@ sub find_video { my $video_id; if ($browser->content =~ /(?:var pageVideoId =|(?:CFG_)?VIDEO_ID'?\s*:)\s*'(.+?)'/ - || $browser->content =~ /video_id=([^&]+)/) { - || $embed_url =~ /v=([^&]+)/) { + || $browser->content =~ /video_id=([^&]+)/ + || $embed_url =~ /v=([^&]+)/ || $browser->content =~ /&video_id=([^&]+)&/) { $video_id = $1; } else { |