Changeset 1705
- Timestamp:
- 2000-11-27T15:36:10+13:00 (23 years ago)
- Location:
- trunk/gsdl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/gsConvert.pl
r1692 r1705 84 84 # Deduce filenames 85 85 my ($tailname,$dirname,$suffix) 86 = File::Basename::fileparse($input_filename,'\. .+');86 = File::Basename::fileparse($input_filename,'\.[^\.]+'); 87 87 my $output_filestem = &util::filename_cat($dirname,"$tailname"); 88 88 -
trunk/gsdl/perllib/plugins/ConvertToPlug.pm
r1691 r1705 130 130 # derive tmp filename from input filename 131 131 my ($tailname,$dirname,$suffix) 132 = File::Basename::fileparse($input_filename,'\..+'); 132 = File::Basename::fileparse($input_filename,'\.[^\.]+$'); 133 133 134 my $tmp_filename = &util::filename_cat($tmp_dirname,"$tailname$suffix"); 134 135 # Remove any white space from filename -- no risk of name collision, and
Note:
See TracChangeset
for help on using the changeset viewer.