[Sandweb-commit] CVS: sandweb/lib/SandWeb File.pm,1.43,1.44

[Nick J. <nje...@us...>]

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: $!");