Changeset 19811

Timestamp:

2009-06-11T21:30:46+12:00 (15 years ago)

Author:

davidb

Message:

Minor fix to protect Windows directory separators in regular expression

File:

• gsdl/trunk/perllib/plugins/MetadataEXIFPlugin.pm (modified) (1 diff)

gsdl/trunk/perllib/plugins/MetadataEXIFPlugin.pm

@@ -155 +155 @@
     print $outhandle " Extracted $metadata_count pieces of metadata from $filename EXIF block\n";
     }
-  
-  # Associate the metadata now
-##    print STDERR "**** file = $file\n";
-
-  $extrametadata->{$file} = \%exif_metadata;
-  push(@$extrametakeys, $file);
+
+    # Protect windows directory chars \
+    $file = &util::filename_to_regex($file);
+    # print STDERR "**** file = $file\n";
+
+    # Associate the metadata now
+
+    $extrametadata->{$file} = \%exif_metadata;
+    push(@$extrametakeys, $file);
 
 }