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

Commits

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

Extracted the _inc_current_idx method.

  • Participants
  • Parent commits 3927645
  • Branches default

Comments (0)

Files changed (1)

File lib/File/Find/Object.pm

View file
  • Ignore whitespace
     return 1;
 }
 
+sub _inc_current_idx {
+    my $self = shift;
+
+    $self->_current_idx($self->_current_idx()+1);
+
+    return;
+}
+
 sub _handle_recurse {
     my $self = shift;
 
     
     if ($status ne "SKIP")
     {
-        $self->_current_idx($self->_current_idx()+1);
+        $self->_inc_current_idx();
     }
+
     return $status;
 }