jens/File-DirWalk
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

M: Renamed variable.

Browse Source
This commit is contained in:
Jens Luedicke
2013-03-09 20:38:40 +01:00
parent ada7ad784b
commit 5d44d60770
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/File/DirWalk.pm
View File

@@ -37,7 +37,7 @@ sub new {
$self->{onDirLeave} = sub { SUCCESS }; $self->{onDirLeave} = sub { SUCCESS };
$self->{depth} = 0; $self->{depth} = 0;
$self->{depthCount} = 0; $self->{currentDepth} = 0;
$self->{entryList} = []; $self->{entryList} = [];
$self->{count} = 0; $self->{count} = 0;
@@ -100,7 +100,7 @@ sub getDepth {
sub currentDepth { sub currentDepth {
my ($self) = @_; my ($self) = @_;
return $self->{depthCount}; return $self->{currentDepth};
} }
sub currentDir { sub currentDir {
@@ -152,7 +152,7 @@ sub walk {
} elsif (-d $path) { } elsif (-d $path) {
if ($self->{depth} != 0) { if ($self->{depth} != 0) {
if ($self->{depthCount} == $self->{depth}) { if ($self->{currentDepth} == $self->{depth}) {
return SUCCESS; return SUCCESS;
} }
} }
@@ -161,7 +161,7 @@ sub walk {
$self->{entryList} = [ no_upwards(readdir $dirh) ]; $self->{entryList} = [ no_upwards(readdir $dirh) ];
$self->{count} = scalar @{$self->{entryList}}; $self->{count} = scalar @{$self->{entryList}};
++$self->{depthCount}; ++$self->{currentDepth};
if ((my $r = $self->{onDirEnter}->($path)) != SUCCESS) { if ((my $r = $self->{onDirEnter}->($path)) != SUCCESS) {
return $r; return $r;
} }
@@ -190,7 +190,7 @@ sub walk {
if ((my $r = $self->{onDirLeave}->($path)) != SUCCESS) { if ((my $r = $self->{onDirLeave}->($path)) != SUCCESS) {
return $r; return $r;
} }
--$self->{depthCount}; --$self->{currentDepth};
} else { } else {
if ((my $r = $self->{onFile}->($path)) != SUCCESS) { if ((my $r = $self->{onFile}->($path)) != SUCCESS) {
return $r; return $r;