| Subject: | Bug in close method |
At package SWF::BinStream::File I found such code:
============cut================
sub close {
my $self = shift;
my $res;
$self->close;
$res = close $self->{_file} if defined $self->{_file};
undef $self->{_file};
$res;
}
=============cut=================
It hangs.
I believe the right thing is:
=============cut=================
sub close {
my $self = shift;
my $res;
$self->SUPER::close;
$res = close $self->{_file} if defined $self->{_file};
undef $self->{_file};
$res;
}
=============cut=================