Changeset 18400 for gsdl/trunk
- Timestamp:
- 2009-01-16T11:58:15+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/util.pm
r18378 r18400 1014 1014 my ($tailname,$dirname,$suffix); 1015 1015 if($no_suffix) { # given a tailname, no suffix 1016 $suffix = "";1017 1016 ($tailname,$dirname) = File::Basename::fileparse($filename); 1018 1017 } … … 1020 1019 ($tailname,$dirname,$suffix) = File::Basename::fileparse($filename, "\\.(?:[^\\.]+?)\$"); 1021 1020 } 1021 $suffix = "" if !$suffix; 1022 1022 1023 1023 if (!$rename_method) {
Note:
See TracChangeset
for help on using the changeset viewer.