[Sandweb-commit] CVS: sandweb/lib/SandWeb File.pm,1.13,1.14

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

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv3210/lib/SandWeb

Modified Files:
	File.pm 
Log Message:

implemented set_error correctly, also am getting complaints in a newer
version of perl about mkdir requiring the second arg ( "mode" ).. weird.



Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -U2 -r1.13 -r1.14
--- File.pm	2001/11/24 11:09:31	1.13
+++ File.pm	2001/11/26 18:14:24	1.14
@@ -104,5 +104,5 @@
 	my $filename = $self->{'filename'};
 
-	my $return = mkdir( "$location/$filename" );
+	my $return = mkdir( "$location/$filename", "0662" );
 
 	return $return;