Changeset 2483

Timestamp:

2001-05-29T16:46:01+12:00 (23 years ago)

Author:

say1

Message:

added a "if" to catch the case where someone tries to convert an undefined string

File:

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

trunk/gsdl/perllib/unicode.pm

@@ -54 +54 @@
     my ($in) = @_;
     my $out = "";
+
+    if (!defined($in)|| !defined($$in)) {
+    return $out;
+    }
 
     my ($c);