Izumino Blog

Perl Module [FLV::Info]でエラーが出たので記録しておく

Failed to read FLV file: Tag size is too small (4) at byte 29177 (0x71f9)
at /usr/local/share/perl5/FLV/Tag.pm line 81.

とのエラーが出た。

https://rt.cpan.org/Public/Bug/Display.html?id=29831
にあったパッチを当てて解決

=== 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)

関連の記事など
　FLVのメタデータ（動画の幅や高さ等）を調べるPerlモジュール
　　http://dminor11th.blogspot.jp/2010/11/flvperl.html
　FLV::Info にパッチ
　　http://www.hsbt.org/diary/20080811.html

　