Changeset 24829 for main/trunk/greenstone2/perllib/inexport.pm
- Timestamp:
- 2011-11-30T17:48:15+13:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/inexport.pm
r24344 r24829 1035 1035 1036 1036 $situated_dir =~ s/[\\\/]+$//; # remove tailing slashes 1037 $situated_dir = ~ s/\\/\\\\/g; # need to protect windows slash \in regular expression1037 $situated_dir = &util::filename_to_regex($situated_dir); # need to escape windows slash \ and brackets in regular expression 1038 1038 1039 1039 # Go through existing_files, and mark anything that is contained
Note:
See TracChangeset
for help on using the changeset viewer.