Changeset 11920

Timestamp:

2006-06-15T14:53:08+12:00 (18 years ago)

Author:

mdewsnip

Message:

Removed the code that converts the filename into a regular expression, since the metadata_read code makes a complete mess of it on Windows.

File:

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

trunk/gsdl/perllib/plugins/CSVPlug.pm

@@ -153 +153 @@
     delete $csv_line_metadata{"Filename"};
 
-    # Convert the filename to a regular expression, and associate the metadata
-    my $csv_line_filename_regexp = $csv_line_filename;
-    $csv_line_filename_regexp =~ s/\./\\./g;  # Escape any dots
-    $csv_line_filename_regexp =~ s/\(/\\\(/g;  # Escape any parentheses
-    $csv_line_filename_regexp =~ s/\)/\\\)/g;  # Escape any parentheses
-    $extrametadata->{$csv_line_filename_regexp} = \%csv_line_metadata;
-    push(@$extrametakeys, $csv_line_filename_regexp);
+    # Associate the metadata now
+    $extrametadata->{$csv_line_filename} = \%csv_line_metadata;
+    push(@$extrametakeys, $csv_line_filename);
     }
 }