Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv5933/lib/SandWeb
Modified Files:
File.pm
Log Message:
formatting fixes
Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -U2 -r1.40 -r1.41
--- File.pm 5 Feb 2002 05:46:45 -0000 1.40
+++ File.pm 10 Feb 2002 20:53:07 -0000 1.41
@@ -131,12 +131,12 @@
my $filehandle = $args{'filehandle'};
-open UPLOADFILE, "> $location/$filename";
+ open UPLOADFILE, "> $location/$filename";
-while ( <$filehandle> )
-{
- print UPLOADFILE;
-}
+ while ( <$filehandle> )
+ {
+ print UPLOADFILE;
+ }
-close UPLOADFILE;
+ close UPLOADFILE;
}
|
