Changeset 20769

Timestamp:

2009-10-01T18:58:17+13:00 (15 years ago)

Author:

ak19

Message:

Does need to protect windows-style slashes after all.

File:

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

gsdl/trunk/perllib/inexport.pm

@@ -182 +182 @@
 
     $situated_dir =~ s/[\\\/]+$//; # remove tailing slashes
-
+    $situated_dir =~ s/\\/\\\\/g;  # need to protect windows slash \ in regular expression
+    
     # Go through existing_files, and mark anything that is contained
     # within 'situated_dir' to be reindexed (in case some of the metadata
@@ -190 +191 @@
 
     foreach my $existing_f (keys %{$block_hash->{'existing_files'}}) {
-        # need to protect windows slash \ in regular expression?
-
+    
         if ($existing_f =~ m/^$situated_dir/) {
         push(@$reindex_files,$existing_f);