Changeset 1756

Timestamp:

2000-12-07T11:46:39+13:00 (23 years ago)

Author:

say1

Message:

added detection and handling of unreadable files

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -261 +261 @@
     my ($filename, $textref) = @_;
 
+    if (!-r $filename)
+    {
+    print STDERR "Read permission denied for $filename\n";
+    return;
+    }
+
     $$textref = "";