From 99b3e1c276af88327b5f9423cfdf75afead28018 Mon Sep 17 00:00:00 2001
From: Guillem Jover <guillem@debian.org>
Date: Fri, 14 Jul 2017 02:03:29 +0200
Subject: perl: Use -> operator for function variables

---
 scripts/Dpkg/Dist/Files.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'scripts/Dpkg/Dist/Files.pm')

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};
         }
     }
-- 
cgit v1.2.3