Changeset 18378

Show
Ignore:
Timestamp:
14.01.2009 13:39:57 (10 years ago)
Author:
ak19
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/util.pm

    r18341 r18378  
    10101010    # Should we do this???? 
    10111011    # DM safing would have replaced underscores with character entity _ 
    1012     $filename =~ s/&\#095;/_/g; 
     1012#    $filename =~ s/&\#095;/_/g; 
    10131013 
    10141014    my ($tailname,$dirname,$suffix);