1. Shlomi Fish
  2. perl-File-Find-Object

Commits

shl...@6f433eb9-a002-0410-945b-ee5462c261ee  committed c25c294

Refactoring: de-argumented another $current parameter.

  • Participants
  • Parent commits a7a5c24
  • Branches default

Comments (0)

Files changed (1)

File lib/File/Find/Object.pm

View file
  • Ignore whitespace
 {
     my $self = shift;
 
-    $self->_check_subdir($self->_current()) or 
+    $self->_check_subdir() or 
         return "SKIP";
 
     push @{$self->_dir_stack()}, 
 
 sub _check_subdir 
 {
-    my ($self, $current) = @_;
+    my $self = shift;
+
+    my $current = $self->_current();
 
     # If current is not a directory always return 0, because we may
     # be asked to traverse single-files.