| Subject: | Question about SWF Parser |
I have used your SWF-File.20 parser before and now I am trying to upgrade to SWF-File-0.33 version of the same. I am having some problems with it.
I am not sure, whether you accept any questions, doubts about it or not.
In file Element.pl there is code something like this.
package SWF::Element::CLIPACTIONRECORD;
sub unpack {
my ($self, $stream) = @_;
my $flag = 0;
if ($stream->Version >= 6) {
$flag = $self->EventFlags ($stream->get_UI32);
} else {
$flag = $self->EventFlags ($stream->get_UI16);
}
return if $flag == 0;
my $size = $stream->get_UI32;
my $start = $stream->tell;
$self->KeyCode($stream->get_UI8)if $self->ClipEventKeyPress;
$self->Actions->unpack($stream);
my $remain = $stream->tell - $start - $size;
$stream->get_string($remain) if $remain > 0;
}
In this code it checks if $stream->Version >= 6 and then depending on that it decides whether to read next 16 bits or 32 bits. I observed that with one of my example the $stream->Version comes in as 5 and it never reads remaining 16 bits of flags and so finally there are no clip actions extracted out. When I start using the older SWF-File-0.20, for the same swf file, in this same routine the $stream->Version comes in as 6 and reads 32 bits properly and clip actions are extracted properly.
There could be something wrong that I am doing, in using the new SWF-File-0.33
Can you suggest me anything on how I can track the problem. Your help is much appreciated.
I am getting this problem in 0.33 version.
I am using Data::TemporaryBag version 0.08
Perl Version is v5.6.1 built for MSWin32-x86-multi-thread
Binary build 635
Thanks
Anand
Message body not shown because it is not plain text.