diff options
| author | Guillem Jover <guillem@debian.org> | 2017-07-14 02:03:29 +0200 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2017-08-26 10:59:37 +0200 |
| commit | 99b3e1c276af88327b5f9423cfdf75afead28018 (patch) | |
| tree | ae1d78ece29d6182e963fadcbd888492d058ea53 /scripts/Dpkg/Dist/Files.pm | |
| parent | 3f2687270a406347a14463a5e3031d214827bf56 (diff) | |
| download | dpkg-99b3e1c276af88327b5f9423cfdf75afead28018.tar.gz | |
perl: Use -> operator for function variables
Diffstat (limited to 'scripts/Dpkg/Dist/Files.pm')
| -rw-r--r-- | scripts/Dpkg/Dist/Files.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/Dpkg/Dist/Files.pm b/scripts/Dpkg/Dist/Files.pm index 347f58e5d..c2c426bd9 100644 --- a/scripts/Dpkg/Dist/Files.pm +++ b/scripts/Dpkg/Dist/Files.pm @@ -157,7 +157,7 @@ sub filter { foreach my $filename (keys %{$self->{files}}) { my $file = $self->{files}->{$filename}; - if (not &$keep($file) or &$remove($file)) { + if (not $keep->($file) or $remove->($file)) { delete $self->{files}->{$filename}; } } |