diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-11-18 08:36:43 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-01-13 09:58:32 -0700 |
commit | dbe7a39153f2c88748f4a5f0749996f500ab8570 (patch) | |
tree | 5c6a0a16411dcacc132eb66eadfaae84fb5c419f /lib/utf8_heavy.pl | |
parent | 8c9eb58fafb92c0b9df002ce4915c59492a7db9b (diff) | |
download | perl-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.pl | 3 |
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"; |