PIXTA
RSS2.0
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
八ヶ岳山麓の近況とか…
Y:
Comments