Changeset 1705 for trunk/gsdl/bin/script


Ignore:
Timestamp:
2000-11-27T15:36:10+13:00 (24 years ago)
Author:
say1
Message:

fixed to handle filenames with multiple dots.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/bin/script/gsConvert.pl

    r1692 r1705  
    8484    # Deduce filenames
    8585    my ($tailname,$dirname,$suffix)
    86     = File::Basename::fileparse($input_filename,'\..+');
     86    = File::Basename::fileparse($input_filename,'\.[^\.]+');
    8787    my $output_filestem = &util::filename_cat($dirname,"$tailname");
    8888
Note: See TracChangeset for help on using the changeset viewer.