Changeset 18378 for gsdl/trunk/perllib/util.pm

Timestamp:

2009-01-14T13:39:57+13:00 (15 years ago)

Author:

ak19

Message:

Commented out substitution of underscore's entity reference with underscore, in subroutine rename_file.

File:

• gsdl/trunk/perllib/util.pm (modified) (1 diff)

gsdl/trunk/perllib/util.pm

@@ -1010 +1010 @@
     # Should we do this????
     # DM safing would have replaced underscores with character entity _
-    $filename =~ s/&\#095;/_/g;
+#    $filename =~ s/&\#095;/_/g;
 
     my ($tailname,$dirname,$suffix);