Changeset 2041 for trunk/gsdl/perllib/plugins/ConvertToPlug.pm

Timestamp:

2001-02-21T16:16:43+13:00 (23 years ago)

Author:

jrm21

Message:

don't strip all whitespace from tmp filename, only from base name.
(Hint: c:/ProgramFiles breaks stuff).

File:

• trunk/gsdl/perllib/plugins/ConvertToPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -145 +145 @@
     = File::Basename::fileparse($input_filename,'\.[^\.]+$');
 
+    # Remove any white space from filename -- no risk of name collision, and
+    # makes later conversion by utils simpler. Leave spaces in path...
+    $tailname =~ s/\s+//g; 
+
     my $tmp_filename = &util::filename_cat($tmp_dirname,"$tailname$suffix");
-    # Remove any white space from filename -- no risk of name collision, and
-    # makes later conversion by utils simpler
-    $tmp_filename =~ s/\s+//g; 
 
     &util::soft_link($input_filename,$tmp_filename);
@@ -226 +227 @@
     my $conv_filename = $self->tmp_area_convert_file($output_ext,$filename);
     if ("$conv_filename" eq "") {return 0;} # allows continue on errors
+    if (! -e "$conv_filename") {return 0;} # allows continue on errors
     $self->{'conv_filename'} = $conv_filename;