diff options
| author | Nigel Taylor <njtaylor0101@gmail.com> | 2013-02-08 11:26:25 +0000 |
|---|---|---|
| committer | Nigel Taylor <njtaylor0101@gmail.com> | 2013-02-08 11:26:25 +0000 |
| commit | ca540838e4698d2d54ad7d16ba2fd822b59b6eed (patch) | |
| tree | c90c0fe3eeab8e1e0cead7361af350d19b8e3ac6 | |
| parent | ce96680c0b9f8248d38306eccbd91d7d737a02fd (diff) | |
| download | get-flash-videos-ca540838e4698d2d54ad7d16ba2fd822b59b6eed.tar.gz | |
Compile issues fix pending upstream fix
| -rw-r--r-- | lib/FlashVideo/Site/Kanal5play.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/FlashVideo/Site/Kanal5play.pm b/lib/FlashVideo/Site/Kanal5play.pm index 5ac4fb9..eca5888 100644 --- a/lib/FlashVideo/Site/Kanal5play.pm +++ b/lib/FlashVideo/Site/Kanal5play.pm @@ -36,7 +36,7 @@ sub find_video { my $rtmp = "rtmp://fl1.c00608.cdn.qbrick.com:1935/00608"; my $playpath = $json->{streams}[0]->{source}; - while (my ($key, $stream) = each($json->{streams})) { + while (my ($key, $stream) = each(@{ $json->{streams} })) { my $rate = int($stream->{bitrate}); if ($bitrates->{$prefs->{quality}} == $rate) { $playpath = $stream->{source}; |