Changeset 2041

Show
Ignore:
Timestamp:
21.02.2001 16:16:43 (19 years ago)
Author:
jrm21
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/ConvertToPlug.pm

    r2036 r2041  
    145145    = File::Basename::fileparse($input_filename,'\.[^\.]+$'); 
    146146 
     147    # Remove any white space from filename -- no risk of name collision, and 
     148    # makes later conversion by utils simpler. Leave spaces in path... 
     149    $tailname =~ s/\s+//g;  
     150 
    147151    my $tmp_filename = &util::filename_cat($tmp_dirname,"$tailname$suffix"); 
    148     # Remove any white space from filename -- no risk of name collision, and 
    149     # makes later conversion by utils simpler 
    150     $tmp_filename =~ s/\s+//g;  
    151152 
    152153    &util::soft_link($input_filename,$tmp_filename); 
     
    226227    my $conv_filename = $self->tmp_area_convert_file($output_ext,$filename); 
    227228    if ("$conv_filename" eq "") {return 0;} # allows continue on errors 
     229    if (! -e "$conv_filename") {return 0;} # allows continue on errors 
    228230    $self->{'conv_filename'} = $conv_filename; 
    229231