[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.25,1.26

[Rob H. <for...@us...>]

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;