Changeset 1705 for trunk/gsdl/perllib

Timestamp:

2000-11-27T15:36:10+13:00 (24 years ago)

Author:

say1

Message:

fixed to handle filenames with multiple dots.

File:

• trunk/gsdl/perllib/plugins/ConvertToPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -130 +130 @@
     # derive tmp filename from input filename
     my ($tailname,$dirname,$suffix)
-    = File::Basename::fileparse($input_filename,'\..+');
+    = File::Basename::fileparse($input_filename,'\.[^\.]+$');
+
     my $tmp_filename = &util::filename_cat($tmp_dirname,"$tailname$suffix");
     # Remove any white space from filename -- no risk of name collision, and