Changeset 19811

Show
Ignore:
Timestamp:
11.06.2009 21:30:46 (10 years ago)
Author:
davidb
Message:

Minor fix to protect Windows directory separators in regular expression

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/MetadataEXIFPlugin.pm

    r19493 r19811  
    155155    print $outhandle " Extracted $metadata_count pieces of metadata from $filename EXIF block\n"; 
    156156    } 
    157    
    158   # Associate the metadata now 
    159 ##    print STDERR "**** file = $file\n"; 
    160  
    161   $extrametadata->{$file} = \%exif_metadata; 
    162   push(@$extrametakeys, $file); 
     157 
     158    # Protect windows directory chars \ 
     159    $file = &util::filename_to_regex($file); 
     160    # print STDERR "**** file = $file\n"; 
     161 
     162    # Associate the metadata now 
     163 
     164    $extrametadata->{$file} = \%exif_metadata; 
     165    push(@$extrametakeys, $file); 
    163166 
    164167}