Changeset 8217

Timestamp:

2004-10-05T12:37:10+13:00 (20 years ago)

Author:

jrm21

Message:

added a safety check to ensure_utf8()

File:

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

trunk/gsdl/perllib/unicode.pm

@@ -475 +475 @@
 sub ensure_utf8 {
     my $stringref=shift;
+
+    if (!defined($stringref) || ref($stringref) ne 'SCALAR') {
+    return $stringref;
+    }
 
     my $value=$$stringref;