Changeset 18400 for gsdl/trunk/perllib

Timestamp:

2009-01-16T11:58:15+13:00 (15 years ago)

Author:

ak19

Message:

Minor improvement to rename_file subroutine: file suffix set to empty string if it still has no value after processing.

File:

• gsdl/trunk/perllib/util.pm (modified) (2 diffs)

gsdl/trunk/perllib/util.pm

@@ -1014 +1014 @@
     my ($tailname,$dirname,$suffix); 
     if($no_suffix) { # given a tailname, no suffix
-    $suffix = "";
     ($tailname,$dirname) = File::Basename::fileparse($filename);
     } 
@@ -1020 +1019 @@
     ($tailname,$dirname,$suffix) = File::Basename::fileparse($filename, "\\.(?:[^\\.]+?)\$");
     }
+    $suffix = "" if !$suffix;
 
     if (!$rename_method) {