Changeset 593

Timestamp:

1999-09-16T15:53:02+12:00 (25 years ago)

Author:

sjboddie

Message:

Fixed bug causing everything to die if it tripped over an unreadable
directory

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -69 +69 @@
 
     # read all the files in the directory
-    opendir (DIR, $dirname) ||
-        die "ERROR - couldn't read directory $dirname\n";
+        if (!opendir (DIR, $dirname))
+        {
+            print STDERR "RecPlug: WARNING - couldn't read directory $dirname\n";
+            return;
+        }
+
     @dir = readdir (DIR);
     closedir (DIR);