Bug #29830 for FLV-Info:

I got flv files from ustream and tried to get information of these files. (How to get flv files from ustream desccribed here: http://use.perl.org/~miyagawa/journal/34603) But I got an error like this: Failed to read FLV file: Tag size is too small (0) at byte 193 (0xc1) at /usr/local/lib/perl5/site_perl/5.8.7/FLV/Tag.pm line 81. Because of ustream flv files have 0 length audio body. So I wrote a patch to fix it. It is not a bug, but I with that it will be fixed. Thanks. === lib/FLV/AudioTag.pm ================================================================== --- lib/FLV/AudioTag.pm (revision 2255) +++ lib/FLV/AudioTag.pm (local) @@ -44,6 +44,8 @@ my $file = shift; my $datasize = shift; + return unless $datasize; + my $flags = unpack 'C', $file->get_bytes(1); my $format = (($flags >> 4) & 0x0f); === lib/FLV/Tag.pm ================================================================== --- lib/FLV/Tag.pm (revision 2255) +++ lib/FLV/Tag.pm (local) @@ -76,10 +76,10 @@ warn "Funny timestamp: @timestamp -> $timestamp\n"; } - if ($datasize < 11) - { - die "Tag size is too small ($datasize) at byte " . $file->get_pos(-10); - } + #if ($datasize < 11) + #{ + # die "Tag size is too small ($datasize) at byte " . $file->get_pos(-10); + #} my $payload_class = $TAG_CLASSES{$type}; if (!$payload_class)