diff options
| -rw-r--r-- | lib/utf8_heavy.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 6bf897515c..4825b0f628 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -32,7 +32,9 @@ sub croak { require Carp; Carp::croak(@_) } local $^D = 0 if $^D; $class = "" unless defined $class; - print STDERR __LINE__, ": class=$class, type=$type, list=$list, minbits=$minbits, none=$none\n" if DEBUG; + print STDERR __LINE__, ": class=$class, type=$type, list=", + (defined $list) ? $list : ':undef:', + ", minbits=$minbits, none=$none\n" if DEBUG; ## ## Get the list of codepoints for the type. |