From: Rob H. <for...@us...> - 2002-02-10 20:53:13
|
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; } |