die nicely if opendir fails in example ls.pir

parrot · Aug 17, 2011 · 91518de · 91518de
1 parent 7a9e7ad
commit 91518de
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/examples/nci/ls.pir b/examples/nci/ls.pir
@@ -34,6 +34,16 @@ In this encarnation it works on linux i386 and amd64 systems.
 
      .local pmc curdir
      curdir = opendir(dirname_c)
+     unless null curdir goto opened
+
+     .local pmc err
+     getstderr err
+     print err, "Cannot open directory '"
+     print err, dirname
+     print err, "'\n"
+     exit 1
+
+opened:
      .local pmc entry
 
      .include "datatypes.pasm"