Changeset 13545

Timestamp:

2007-01-08T16:48:43+13:00 (17 years ago)

Author:

shaoqun

Message:

made it do the correct string comparison on unicode filenames

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -102 +102 @@
 use strict;
 no strict 'refs';
+use Encode;
 
 BEGIN {
@@ -401 +402 @@
     &metadatautil::combine_metadata_structures($out_metadata, $in_metadata);
 
+        ## encode the filename as perl5 doesn't handle unicode filenames       
+        my $tmpfile = Encode::encode_utf8($subfile); 
+
     # Next add metadata read in XML files (if it is supplied)
     if ($additionalmetadata == 1) {
@@ -406 +410 @@
         my ($filespec, $mdref);
         foreach $filespec (@extrametakeys) {
-        if ($subfile =~ /^$filespec$/) {
+                ## use the utf8 encoded filename to do the filename comparison
+        if ($tmpfile =~ /^$filespec$/) {
             print $outhandle "File \"$subfile\" matches filespec \"$filespec\"\n" 
             if ($verbosity > 2);