Changeset 18400 for gsdl


Ignore:
Timestamp:
01/16/09 11:58:15 (12 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:
1 edited

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) {
Note: See TracChangeset for help on using the changeset viewer.