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;
|
