summaryrefslogtreecommitdiff
path: root/scripts/Dpkg/Source/Archive.pm
diff options
context:
space:
mode:
authorGuillem Jover <guillem@debian.org>2014-11-22 23:59:39 +0100
committerGuillem Jover <guillem@debian.org>2015-01-28 20:50:31 +0100
commitea1357d0f153c9a0534ea301f7d7ef2262343249 (patch)
tree319fb341d986c2d7af0d0bb8e764420a7112d60e /scripts/Dpkg/Source/Archive.pm
parent609750150cdf265ff8ed7477613ea319399cb0ad (diff)
downloaddpkg-ea1357d0f153c9a0534ea301f7d7ef2262343249.tar.gz
Dpkg: Use shift instead of @_ on single argument unpacking
Diffstat (limited to 'scripts/Dpkg/Source/Archive.pm')
-rw-r--r--scripts/Dpkg/Source/Archive.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/Dpkg/Source/Archive.pm b/scripts/Dpkg/Source/Archive.pm
index 643f73e91..1728f2329 100644
--- a/scripts/Dpkg/Source/Archive.pm
+++ b/scripts/Dpkg/Source/Archive.pm
@@ -87,7 +87,8 @@ sub add_directory {
}
sub finish {
- my ($self) = @_;
+ my $self = shift;
+
close(*$self->{tar_input}) or syserr(g_('close on tar input'));
wait_child(*$self->{pid}, cmdline => 'tar -cf -');
delete *$self->{pid};