Skip Menu |
 

This queue is for tickets about the SWF-File CPAN distribution.

Report information
The Basics
Id: 59988
Status: new
Priority: 0/
Queue: SWF-File

People
Owner: Nobody in particular
Requestors: DEMIURG [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.42
Fixed in: (no value)



Subject: Bug in close method
MIME-Version: 1.0
Content-Type: text/plain; charset="UTF-8"
X-Mailer: MIME-tools 5.427 (Entity 5.427)
Content-Disposition: inline
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
Content-Length: 557
Download (untitled) / with headers
text/plain 557b
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=================


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.