M: Check for defined command line argument.

2013-03-10 15:50:35 +01:00
parent c2ce754d59
commit 538260b627
1 changed files with 6 additions and 5 deletions
--- a/examples/ls.pl
+++ b/examples/ls.pl
@@ -31,9 +31,10 @@ $dw->onDirLeave(sub {
 	return SUCCESS;
 });

-if (-e $ARGV[0]) {
-	$dw->walk($ARGV[0]);
-} else {
- 	my $cwd = getcwd();
- 	$dw->walk($cwd);
+my $path = cwd();
+
+if ((defined $ARGV[0]) and (-e $ARGV[0])) {
+    $path = $ARGV[0];
 }
+
+$dw->walk($path);