summaryrefslogtreecommitdiff
path: root/lib/utf8_heavy.pl
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-11-18 08:36:43 -0700
committerKarl Williamson <public@khwilliamson.com>2012-01-13 09:58:32 -0700
commitdbe7a39153f2c88748f4a5f0749996f500ab8570 (patch)
tree5c6a0a16411dcacc132eb66eadfaae84fb5c419f /lib/utf8_heavy.pl
parent8c9eb58fafb92c0b9df002ce4915c59492a7db9b (diff)
downloadperl-dbe7a39153f2c88748f4a5f0749996f500ab8570.tar.gz
Comment additions, typos, white-space.
And the reordering for clarity of one test
Diffstat (limited to 'lib/utf8_heavy.pl')
-rw-r--r--lib/utf8_heavy.pl3
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 84a81676f0..95758f7287 100644
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -105,9 +105,8 @@ sub _loose_name ($) {
if ($type)
{
-
# Verify that this isn't a recursive call for this property.
- # Can't use croak, as it may try to recurse here itself.
+ # Can't use croak, as it may try to recurse to here itself.
my $class_type = $class . "::$type";
if (grep { $_ eq $class_type } @recursed) {
CORE::die "panic: Infinite recursion in SWASHNEW for '$type'\n";