Skip Menu |

This queue is for tickets about the IO-stringy CPAN distribution.

Report information
The Basics
Id: 8605
Status: resolved
Priority: 0/
Queue: IO-stringy

People
Owner: cwhitener [...] gmail.com
Requestors: julian [...] mehnle.net
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in:
  • 1.220
  • 2.108
  • 2.109
Fixed in: (no value)



Subject: IO::InnerFile::seek() should return 1 on success
The method IO::InnerFile::seek() should return 1 on success, and 0 otherwise, as per `perldoc -f seek`. Some Perl modules, such as MIME::Parser 5.414+, rely on this and fail if seek() doesn't return a true value. See also the corresponding Debian bug report: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=280866
From: julian [...] mehnle.net
Here is a patch.
--- InnerFile.pm 2001-08-17 04:06:33.000000000 +0200 +++ /usr/share/perl5/IO/InnerFile.pm 2004-11-10 20:12:17.000000000 +0100 @@ -163,6 +163,8 @@ $self->{CRPOS} = 0 if ($self->{CRPOS} < 0); $self->{CRPOS} = $self->{LG} if ($self->{CRPOS} > $self->{LG}); + + return 1; } sub tell {
Hi! Thanks for reporting this. It looks like it's been fixed for quite some time, yet the ticket was still open. I'm taking care of that part now. Thanks again, Chase