diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-02-06 10:10:47 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-02-06 10:13:26 -0700 |
| commit | 5bcf08c4547e5c6ec79e3cc699bedecb80c1a756 (patch) | |
| tree | 5addc7e82d677da68d17cacc7c395caea84735a6 /lib/utf8_heavy.pl | |
| parent | b443038a145a59ec6de84fc1eeb3034b20299069 (diff) | |
| download | perl-5bcf08c4547e5c6ec79e3cc699bedecb80c1a756.tar.gz | |
utf8_heavy.pl: Improve debug output
Often, when DEBUG is set, an uninitialized variable message gets printed
as well. This fixes that.
Diffstat (limited to 'lib/utf8_heavy.pl')
| -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. |