Changeset 19266

Show
Ignore:
Timestamp:
27.04.2009 11:30:53 (10 years ago)
Author:
davidb
Message:

Windows version of collectir needed protecting for use in regular expression

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/inexport.pm

    r19049 r19266  
    276276        my $collectdir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}); 
    277277 
    278         $existing_file =~ s/^$collectdir(\\|\/)?//; 
     278        my $collectdir_resafe = &util::filename_to_regex($collectdir); 
     279        $existing_file =~ s/^$collectdir_resafe(\\|\/)?//; 
    279280         
    280281###     print STDERR "**** Deleting existing file: $existing_file\n";