X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/0fada5e1f4aafccee16d425b124c1424f7bc95d7..69b36ee0c47bb55f3ecb5b9da1859ae3e3366bc4:/lib/utf8_heavy.pl

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;