Commits

Anonymous committed 55f0231

Small cleanup - @subs -> $subs.

Comments (0)

Files changed (1)

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";