diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-11-19 14:47:33 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-01-13 09:58:33 -0700 |
commit | 25df5e40da0b4108bfd2594a91de85054a1fa867 (patch) | |
tree | 9464d0262104f0b8859aa02fb6a164617dd6b604 /lib/utf8_heavy.pl | |
parent | 8ed25d5335a26f2d5a2bc44bb73012fe867c7626 (diff) | |
download | perl-25df5e40da0b4108bfd2594a91de85054a1fa867.tar.gz |
utf8_heavy: Add DEBUG statement
This helps keep track of the recursion used.
Diffstat (limited to 'lib/utf8_heavy.pl')
-rw-r--r-- | lib/utf8_heavy.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 29b974ef74..e63999fd44 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -608,6 +608,7 @@ sub _loose_name ($) { elsif ($c =~ /^([0-9a-fA-F]+)/) { $subobj = utf8->SWASHNEW("", $c, $minbits, 0); } + print STDERR __LINE__, ": returned from getting sub object for $name\n" if DEBUG; if (! ref $subobj) { pop @recursed if @recursed && $type; return $subobj; |