Changeset 24829 for main/trunk/greenstone2/perllib/plugouts/DSpacePlugout.pm

Timestamp:

2011-11-30T17:48:15+13:00 (12 years ago)

Author:

ak19

Message:

Changes to bat files and perl code to deal with brackets in (Windows) filepath. Also checked winmake.bat files to see if changes were needed there. These changes go together with the commits 24826 to 24828 for gems.bat, and commit 24820 on makegs2.bat.

File:

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

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

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