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

Timestamp:

2009-01-21T19:15:07+13:00 (15 years ago)

Author:

ak19

Message:

Removed unused code.

File:

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

gsdl/trunk/perllib/util.pm

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