utf8_heavy.pl: Correct debugging statement

[perl5.git] / lib / utf8_heavy.pl

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 9903128..9508711 100644 (file)
--- 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;