Changeset 1418

Timestamp:

2000-08-17T14:19:26+12:00 (24 years ago)

Author:

davidb

Message:

Small modification to improve handling of file names with spaces in.

File:

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

trunk/gsdl/perllib/plugins/ConvertToBasPlug.pm

@@ -78 +78 @@
     my $tmp_filename = &util::filename_cat($tmp_dirname,"$tailname$suffix");
 
+    # Remove any white space from filename -- no risk of name collision, and
+    # makes latter conversion by utils simpler
+    $tmp_filename =~ s/\s+//g; 
+
     &util::soft_link($input_filename,$tmp_filename);
 
     my $output_filename 
     = &util::filename_cat($tmp_dirname,"$tailname.$output_ext");
+    $output_filename =~ s/\s+//g; 
 
     my $verbosity = $self->{'verbosity'};