diff --git a/scripts/Dpkg/Deps.pm b/scripts/Dpkg/Deps.pm
index 80d249019112cc58bcdd561e1e36bde90321842b..4e2b391fa70822185e271eab2666736812656ab4 100644
--- a/scripts/Dpkg/Deps.pm
+++ b/scripts/Dpkg/Deps.pm
@@ -45,6 +45,7 @@ All the deps_* functions are exported by default.
 
 use strict;
 use warnings;
+use feature qw(current_sub);
 
 our $VERSION = '1.07';
 our @EXPORT = qw(
@@ -366,15 +367,14 @@ Return the same value as the callback function.
 sub deps_iterate {
     my ($deps, $callback_func) = @_;
 
-    my $visitor_func;
-    $visitor_func = sub {
+    my $visitor_func = sub {
         foreach my $dep (@_) {
             return unless defined $dep;
 
             if ($dep->isa('Dpkg::Deps::Simple')) {
                 return unless $callback_func->($dep);
             } else {
-                return unless $visitor_func->($dep->get_deps());
+                return unless __SUB__->($dep->get_deps());
             }
         }
         return 1;