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

M: Check for defined command line argument.

Browse Source
This commit is contained in:
Jens Luedicke
2013-03-10 15:50:35 +01:00
parent c2ce754d59
commit 538260b627
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
examples/ls.pl
View File

@@ -31,9 +31,10 @@ $dw->onDirLeave(sub {
return SUCCESS; return SUCCESS;
}); });
if (-e $ARGV[0]) { my $path = cwd();
$dw->walk($ARGV[0]);
} else { if ((defined $ARGV[0]) and (-e $ARGV[0])) {
my $cwd = getcwd(); $path = $ARGV[0];
$dw->walk($cwd);
} }
$dw->walk($path);