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

B: Increment directory depth count before calling onDirEnter handler.

Browse Source
This commit is contained in:
Jens Luedicke
2013-03-09 11:48:36 +01:00
parent 97f876d629
commit 9f8defb0fe
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->{depth} = 0;
$self->{depth_count} = 0;
$self->{depthCount} = 0;
$self->{filesInDir} = 0;
@@ -88,7 +88,7 @@ sub setDepth {
sub getDepth {
my ($self) = @_;
return $self->{depth_count};
return $self->{depthCount};
}
sub currentDir {
@@ -131,7 +131,7 @@ sub walk {
} elsif (-d $path) {
if ($self->{depth} != 0) {
if ($self->{depth_count} == $self->{depth}) {
if ($self->{depthCount} == $self->{depth}) {
return SUCCESS;
}
}
@@ -141,11 +141,11 @@ sub walk {
@dir_contents = File::Spec->no_upwards(@dir_contents);
$self->{filesInDir} = scalar @dir_contents;
++$self->{depthCount};
if ((my $r = $self->{onDirEnter}->($path)) != SUCCESS) {
return $r;
}
++$self->{depth_count};
# be portable.
my @dirs = File::Spec->splitdir($path);
@@ -168,7 +168,7 @@ sub walk {
if ((my $r = $self->{onDirLeave}->($path)) != SUCCESS) {
return $r;
}
--$self->{depth_count};
--$self->{depthCount};
} else {
if ((my $r = $self->{onFile}->($path)) != SUCCESS) {
return $r;