FLV::Info perl module not working as hoped

Do you have a question? Post it now! No Registration Necessary.  Now with pictures!

I used CPAN to install the FLV::Info module with the intent of using the
flv2swf perl script to convert *.flv files to *.swf, but am meeting with
an error that I don't know how to solve:

$ flv2swf Aircraft_Engine_Failure_IMC.flv test.swf
Failed to read FLV file: Tag size is too small (4) at byte 932 (0x3a4)
at /usr/local/share/perl/5.10.1/FLV/Tag.pm line 81.

The referenced line is:

79 if ($datasize < 11)
80 {
81 die "Tag size is too small ($datasize) at byte " . $file->get_pos(-10);
82 }


ffmpeg -i Aircraft_Engine_Failure_IMC.flv Aircraft_Engine_Failure_IMC.swf

works correctly.

How to fix the Perl solution, please?

Site Timeline