Changeset 20769


Ignore:
Timestamp:
2009-10-01T18:58:17+13:00 (13 years ago)
Author:
ak19
Message:

Does need to protect windows-style slashes after all.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/inexport.pm

    r20764 r20769  
    182182
    183183    $situated_dir =~ s/[\\\/]+$//; # remove tailing slashes
    184 
     184    $situated_dir =~ s/\\/\\\\/g;  # need to protect windows slash \ in regular expression
     185   
    185186    # Go through existing_files, and mark anything that is contained
    186187    # within 'situated_dir' to be reindexed (in case some of the metadata
     
    190191
    191192    foreach my $existing_f (keys %{$block_hash->{'existing_files'}}) {
    192         # need to protect windows slash \ in regular expression?
    193 
     193   
    194194        if ($existing_f =~ m/^$situated_dir/) {
    195195        push(@$reindex_files,$existing_f);
Note: See TracChangeset for help on using the changeset viewer.