Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv14320/lib/SandWeb
Modified Files:
File.pm
Log Message:
better regexp loop for IE file upload workaround
Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -U2 -r1.42 -r1.43
--- File.pm 10 Feb 2002 21:12:53 -0000 1.42
+++ File.pm 10 Feb 2002 21:23:52 -0000 1.43
@@ -130,12 +130,6 @@
# begin workaround for IE/Windows upload behaviour
- $filename =~ /\\/;
-
- while ( $' =~ /\\/ ) {
- $' =~ /\\/;
- }
-
- if ( $filename =~ /\\/ ) {
- $filename = $';
+ while ( $filename =~ /\\/ ) {
+ $filename = $';
}
# end workaround for IE/Windows upload behaviour
|
