diff options
| author | Guillem Jover <guillem@debian.org> | 2014-11-22 23:59:39 +0100 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2015-01-28 20:50:31 +0100 |
| commit | ea1357d0f153c9a0534ea301f7d7ef2262343249 (patch) | |
| tree | 319fb341d986c2d7af0d0bb8e764420a7112d60e /scripts/Dpkg/Source/Archive.pm | |
| parent | 609750150cdf265ff8ed7477613ea319399cb0ad (diff) | |
| download | dpkg-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.pm | 3 |
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}; |