Changeset 19266

Timestamp:

2009-04-27T11:30:53+12:00 (15 years ago)

Author:

davidb

Message:

Windows version of collectir needed protecting for use in regular expression

File:

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

gsdl/trunk/perllib/inexport.pm

@@ -276 +276 @@
         my $collectdir = &util::filename_cat($ENV{'GSDLCOLLECTDIR'});
 
-        $existing_file =~ s/^$collectdir(\\|\/)?//;
+        my $collectdir_resafe = &util::filename_to_regex($collectdir);
+        $existing_file =~ s/^$collectdir_resafe(\\|\/)?//;
         
 ###     print STDERR "**** Deleting existing file: $existing_file\n";