Changeset 7798 for trunk/gsdl/perllib/doc.pm

Timestamp:

2004-07-22T12:13:45+12:00 (20 years ago)

Author:

jrm21

Message:

added a function, unicode::ensure_utf8(), that will test that the given
string ref is encoded with utf-8, and will modify it if necessary.

add_utf8_metadata() makes use of this function. (Eg previously source filenames
could cause problems).

File:

• trunk/gsdl/perllib/doc.pm (modified) (2 diffs)

trunk/gsdl/perllib/doc.pm

@@ -788 +788 @@
 }
 
-# add_utf8_metadata assumes the text has already been converted
-# to the UTF-8 encoding.
 sub add_utf8_metadata {
     my $self = shift (@_);
@@ -809 +807 @@
     }
     
+    # double check that the value is utf-8
+    if (unicode::ensure_utf8(\$value)) {
+    print STDERR "doc::add_utf8_metadata: warning: '$field' wasn't utf8\n";
+    }
+
     push (@{$section_ptr->{'metadata'}}, [$field, $value]);
 }