Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv23494/lib/SandWeb
Modified Files:
File.pm
Log Message:
* fixed file save bug
Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -U2 -r1.43 -r1.44
--- File.pm 10 Feb 2002 21:23:52 -0000 1.43
+++ File.pm 22 Feb 2002 23:06:27 -0000 1.44
@@ -382,6 +382,8 @@
my $return;
+ my @data = split(/\n/, $contents);
if (open (FILE, ">$location/$filename")) {
- print FILE $contents;
+ $log->debug('dump', @data);
+ print FILE join('', @data);
} else {
$log->debug("error opening $location/$filename for writing: $!");
|
