diff options
author | Nigel Taylor <njtaylor0101@gmail.com> | 2013-02-19 00:21:10 +0000 |
---|---|---|
committer | Nigel Taylor <njtaylor0101@gmail.com> | 2013-02-19 00:21:10 +0000 |
commit | 4a1cd86b3599aa03c405267331c9cb408fea767c (patch) | |
tree | 37942beb8d3aac638c86062955f747e13be2494d | |
parent | 2a368d5bd9a210f7206d71633aa30189d0c90717 (diff) | |
download | get-flash-videos-4a1cd86b3599aa03c405267331c9cb408fea767c.tar.gz |
Itv plugin change download file extension to .flv
-rw-r--r-- | lib/FlashVideo/Site/Itv.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/FlashVideo/Site/Itv.pm b/lib/FlashVideo/Site/Itv.pm index d7880da..01a9eb5 100644 --- a/lib/FlashVideo/Site/Itv.pm +++ b/lib/FlashVideo/Site/Itv.pm @@ -5,7 +5,7 @@ use strict; use FlashVideo::Utils; use HTML::Entities; -our $VERSION = '0.01'; +our $VERSION = '0.02'; sub Version() { $VERSION;} sub find_video { @@ -158,6 +158,7 @@ EOF my $rtmp = decode_entities($video =~ /base="(rtmp[^"]+)/); my($playpath) = $format->{"playpath"}; my($flv) = $playpath =~ m{/([^/]+)$}; + $flv =~ s/\.mp4$/.flv/; return { rtmp => $rtmp, |