Changeset 18411 for gsdl

Show
Ignore:
Timestamp:
21.01.2009 19:15:07 (11 years ago)
Author:
ak19
Message:

Removed unused code.

Files:
1 modified

Legend:

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

    r18404 r18411  
    10081008    $filename =~ s/ /_/g; 
    10091009 
    1010     # Should we do this???? 
    1011     # DM safing would have replaced underscores with character entity _ 
    1012 #    $filename =~ s/&\#095;/_/g; 
    1013  
    10141010    my ($tailname,$dirname,$suffix);  
    10151011    if($no_suffix) { # given a tailname, no suffix