Changeset 22921

Timestamp:

2010-09-17T16:21:10+12:00 (14 years ago)

Author:

sjm84

Message:

Anu changed this to escape backslashes in file names before using them in a regular expression

File:

• main/trunk/greenstone2/perllib/plugouts/DSpacePlugout.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugouts/DSpacePlugout.pm

@@ -182 +182 @@
     $real_filename =~ s/^\\(.*)/$1/i;
     if (-e $real_filename) {
-
-        if ($real_filename =~ m/$source_filename$/) {
+        # escape backslashes in path for upcoming regex match
+        my $escaped_source_filename = $source_filename;
+        $escaped_source_filename =~ s/\\/\\\\/g;        
+        if ($real_filename =~ m/$escaped_source_filename$/) {
         next;
         }