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

M: Improved and extended unit tests.

Browse Source
This commit is contained in:
Jens Luedicke
2013-03-09 13:59:54 +01:00
parent 42b1a13c62
commit ada7ad784b
55 changed files with 184 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/File/DirWalk.pm
View File

@@ -131,8 +131,12 @@ sub entryList {
sub walk {
my ($self,$path) = @_;
$self->{currentDir} = dirname($path);
$self->{currentBasename} = basename($path);
my $currentDir = dirname($path);
my $currentBasename = basename($path);
my $currentPath = $path;
$self->{currentDir} = $currentDir;
$self->{currentBasename} = $currentBasename;
$self->{currentPath} = $path;
if ((my $r = $self->{onBeginWalk}->($path)) != SUCCESS) {
@@ -179,6 +183,10 @@ sub walk {
closedir $dirh;
$self->{currentDir} = $currentDir;
$self->{currentBasename} = $currentBasename;
$self->{currentPath} = $path;
if ((my $r = $self->{onDirLeave}->($path)) != SUCCESS) {
return $r;
}