diff options
Diffstat (limited to 'scripts/Dpkg/Compression')
| -rw-r--r-- | scripts/Dpkg/Compression/FileHandle.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scripts/Dpkg/Compression/FileHandle.pm b/scripts/Dpkg/Compression/FileHandle.pm index e7c9082c1..4718a8ff5 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; } |