Changeset 18411
- Timestamp:
- 2009-01-21T19:15:07+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/util.pm
r18404 r18411 1008 1008 $filename =~ s/ /_/g; 1009 1009 1010 # Should we do this????1011 # DM safing would have replaced underscores with character entity _1012 # $filename =~ s/&\#095;/_/g;1013 1014 1010 my ($tailname,$dirname,$suffix); 1015 1011 if($no_suffix) { # given a tailname, no suffix
Note:
See TracChangeset
for help on using the changeset viewer.