Changeset 18400 for gsdl

Show
Ignore:
Timestamp:
16.01.2009 11:58:15 (11 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.

Files:
1 modified

Legend:

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

    r18378 r18400  
    10141014    my ($tailname,$dirname,$suffix);  
    10151015    if($no_suffix) { # given a tailname, no suffix 
    1016     $suffix = ""; 
    10171016    ($tailname,$dirname) = File::Basename::fileparse($filename); 
    10181017    }  
     
    10201019    ($tailname,$dirname,$suffix) = File::Basename::fileparse($filename, "\\.(?:[^\\.]+?)\$"); 
    10211020    } 
     1021    $suffix = "" if !$suffix; 
    10221022 
    10231023    if (!$rename_method) {