Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv4855/lib/SandWeb
Modified Files:
Browse.pm
Log Message:
added more debugging, and fixed location bug
Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -U2 -r1.25 -r1.26
--- Browse.pm 2002/01/02 22:35:30 1.25
+++ Browse.pm 2002/01/02 22:51:52 1.26
@@ -103,6 +103,9 @@
- opendir(SANDBOX, "$sandbox/$path") || $log->debug("can't opendir $sandbox/$path : $!");
- $log->debug("opened dir : $sandbox/$path");
+ if ( opendir(SANDBOX, "$sandbox/$path") ) {
+ $log->debug("Opened folder : $sandbox/$path");
+ } else {
+ $log->debug("Cannot open folder $sandbox/$path : $!");
+ }
my @entries = readdir(SANDBOX);
chomp @entries;
|
