This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8_heavy.pl: Correct debugging statement
[perl5.git] / lib / utf8_heavy.pl
index 9903128..9508711 100644 (file)
@@ -562,7 +562,7 @@ sub _loose_name ($) {
             {
                 my $specials_name = $utf8::SwashInfo{$type}{'specials_name'};
                 no strict "refs";
             {
                 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;
                 $SWASH->{'SPECIALS'} = \%$specials_name;
             }
             $SWASH->{'INVERT_IT'} = $invert_it;