- Timestamp:
- 2011-11-30T17:48:15+13:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/DSpacePlugout.pm
r24402 r24829 300 300 $real_filename =~ s/^\\(.*)/$1/i; 301 301 if (-e $real_filename) { 302 # escape backslashes in path for upcoming regex match 303 my $escaped_source_filename = $source_filename; 304 $escaped_source_filename =~ s/\\/\\\\/g; 302 # escape backslashes and brackets in path for upcoming regex match 303 my $escaped_source_filename = &util::filename_to_regex($source_filename); 305 304 if ($real_filename =~ m/$escaped_source_filename$/) { 306 305 next;
Note:
See TracChangeset
for help on using the changeset viewer.