From 739bb238937e2999feb6b853e5594d89fc981a56 Mon Sep 17 00:00:00 2001 From: Guillem Jover Date: Sat, 1 Oct 2016 17:59:06 +0200 Subject: Dpkg::Compression::FileHandle: Inherit from IO::File instead of FileHandle Avoid the indirection, and use the more current module. --- scripts/Dpkg/Compression/FileHandle.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'scripts/Dpkg/Compression') diff --git a/scripts/Dpkg/Compression/FileHandle.pm b/scripts/Dpkg/Compression/FileHandle.pm index 9ce717c10..dd9ae6966 100644 --- a/scripts/Dpkg/Compression/FileHandle.pm +++ b/scripts/Dpkg/Compression/FileHandle.pm @@ -29,7 +29,7 @@ use Dpkg::Compression::Process; use Dpkg::Gettext; use Dpkg::ErrorHandling; -use parent qw(FileHandle Tie::Handle); +use parent qw(IO::File Tie::Handle); # Useful reference to understand some kludges required to # have the object behave like a filehandle @@ -103,7 +103,7 @@ and you can't seek on a pipe. =head1 FileHandle METHODS -The object inherits from FileHandle so all methods that work on this +The object inherits from IO::File so all methods that work on this object should work for Dpkg::Compression::FileHandle too. There may be exceptions though. @@ -126,7 +126,7 @@ obviously incompatible with automatic detection of the compression method. sub new { my ($this, %args) = @_; my $class = ref($this) || $this; - my $self = FileHandle->new(); + my $self = IO::File->new(); # Tying is required to overload the open functions and to auto-open # the file on first read/write operation tie *$self, $class, $self; -- cgit v1.2.3