From 69b36ee0c47bb55f3ecb5b9da1859ae3e3366bc4 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 5 Nov 2011 08:49:48 -0600 Subject: [PATCH] utf8_heavy.pl: Correct debugging statement This was printing out the value before setting it (hence getting the old value). --- lib/utf8_heavy.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 9903128..9508711 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -562,7 +562,7 @@ sub _loose_name ($) { { my $specials_name = $utf8::SwashInfo{$type}{'specials_name'}; no strict "refs"; - print STDERR "\nspecials_name => $SWASH->{'SPECIALS'}\n" if DEBUG; + print STDERR "\nspecials_name => $specials_name\n" if DEBUG; $SWASH->{'SPECIALS'} = \%$specials_name; } $SWASH->{'INVERT_IT'} = $invert_it; -- 2.7.4