Issue #87: use the current_sub feature.

See https://perldoc.perl.org/feature.html#The-'current_sub'-feature
RotherOSS · Jun 30, 2020 · cc510c2 · cc510c2
1 parent c1776f2
commit cc510c2
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/Kernel/System/ObjectManager.pm b/Kernel/System/ObjectManager.pm
@@ -20,7 +20,7 @@ package Kernel::System::ObjectManager;
 ## nofilter(TidyAll::Plugin::OTOBO::Perl::Require)
 ## nofilter(TidyAll::Plugin::OTOBO::Perl::SyntaxCheck)
 
-use strict;
+use 5.24.0;
 use warnings;
 
 use Carp ();
@@ -532,12 +532,13 @@ sub ObjectsDiscard {
     # second step: post-order recursive traversal
     my %Seen;
     my @OrderedObjects;
-    my $Traverser;
-    $Traverser = sub {
+    my $Traverser = sub {
         my ($Object) = @_;
+
         return if $Seen{$Object}++;
+
         for my $ReverseDependency ( sort keys %{ $ReverseDependencies{$Object} } ) {
-            $Traverser->($ReverseDependency);
+            __SUB__->($ReverseDependency);
         }
         push @OrderedObjects, $Object;
     };