From 538260b627bf41e28e1b4b3a433fbe86e95fc4ce Mon Sep 17 00:00:00 2001
From: Jens Luedicke <jens.luedicke@gmail.com>
Date: Sun, 10 Mar 2013 15:50:35 +0100
Subject: [PATCH] M: Check for defined command line argument.

---
 examples/ls.pl | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/examples/ls.pl b/examples/ls.pl
index f0cce26..a4e6b05 100755
--- 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);