The following commit has been merged in the master branch:
commit cf51d05a229be66ca5a21b370faf7d376617098b
Author: Guillem Jover <[email protected]>
Date: Wed Apr 24 13:32:29 2013 +0200
Dpkg::Compression::FileHandle: Handle new EOF method paramater
Do not forward the integer parameter passed to the EOF method since
perl 5.12, as the IO::Handle::eof function rejects it.
This problem has been latent because for example Dpkg::Source::Patch
was importing the whole POSIX module, including the EOF constant, which
shadowed the EOF method.
diff --git a/scripts/Dpkg/Compression/FileHandle.pm
b/scripts/Dpkg/Compression/FileHandle.pm
index e7c9082..4718a8f 100644
--- a/scripts/Dpkg/Compression/FileHandle.pm
+++ b/scripts/Dpkg/Compression/FileHandle.pm
@@ -232,7 +232,9 @@ sub FILENO {
}
sub EOF {
- my ($self) = shift;
+ # Since perl 5.12, an integer parameter is passed describing how the
+ # function got called, just ignore it.
+ my ($self, $param) = (shift, shift);
return *$self->{"file"}->eof(@_) if defined *$self->{"file"};
return 1;
}
--
dpkg's main repository
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
