projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0fada5e
)
utf8_heavy.pl: Correct debugging statement
author
Karl Williamson
<public@khwilliamson.com>
Sat, 5 Nov 2011 14:49:48 +0000
(08:49 -0600)
committer
Karl Williamson
<public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:32 +0000
(08:09 -0700)
This was printing out the value before setting it (hence getting the old
value).
lib/utf8_heavy.pl
patch
|
blob
|
history
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;