diff options
| author | Guillem Jover <guillem@debian.org> | 2014-09-30 23:47:40 +0200 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2014-10-06 02:08:03 +0200 |
| commit | f88c908b5f058d592d87f89b58d9c0b7f34d8194 (patch) | |
| tree | d1873c53fc4b3d941141458799595bf721af0925 /scripts/Dpkg/Compression | |
| parent | 4502f420bd22eab1634d5a9c710c79d58e13e76e (diff) | |
| download | dpkg-f88c908b5f058d592d87f89b58d9c0b7f34d8194.tar.gz | |
scripts: Unpack arguments just once
Addresses Subroutines::RequireArgUnpacking.
Warned-by: perlcritic
Diffstat (limited to 'scripts/Dpkg/Compression')
| -rw-r--r-- | scripts/Dpkg/Compression/Process.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/scripts/Dpkg/Compression/Process.pm b/scripts/Dpkg/Compression/Process.pm index 39753a68d..bb791f337 100644 --- a/scripts/Dpkg/Compression/Process.pm +++ b/scripts/Dpkg/Compression/Process.pm @@ -147,8 +147,9 @@ properly close the sub-process (and verify that it exited without error). =cut sub compress { - my $self = shift; - my %opts = $self->_sanity_check(@_); + my ($self, %opts) = @_; + + $self->_sanity_check(%opts); my @prog = $self->get_compress_cmdline(); $opts{exec} = \@prog; $self->{cmdline} = "@prog"; @@ -169,8 +170,9 @@ properly close the sub-process (and verify that it exited without error). =cut sub uncompress { - my $self = shift; - my %opts = $self->_sanity_check(@_); + my ($self, %opts) = @_; + + $self->_sanity_check(%opts); my @prog = $self->get_uncompress_cmdline(); $opts{exec} = \@prog; $self->{cmdline} = "@prog"; |