Commits

shl...@52c325ad-5fd0-0310-8a0f-c43feede02cc  committed 55f0231

Small cleanup - @subs -> $subs.

  • Participants
  • Parent commits c5d892d

Comments (0)

Files changed (1)

File File-Find-Object-Rule/lib/File/Find/Object/Rule.pm

 
     my $fragment = $self->_compile($self->_subs());
 
-    my @subs = @{$self->_subs()};
+    my $subs = $self->_subs();
 
     warn "relative mode handed multiple paths - that's a bit silly\n"
       if $self->{relative} && @_ > 1;
     my $code = join " && ", map {
         if (ref $_->{code}) {
             push @$subs, $_->{code};
-            "\$subs[$#{$subs}]->(\@args) # $_->{rule}\n";
+            "\$subs->[$#{$subs}]->(\@args) # $_->{rule}\n";
         }
         else {
             "( $_->{code} ) # $_->{rule}\n";