This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove unnecessary check in mro_package_moved
authorFather Chrysostomos <sprout@cpan.org>
Wed, 17 Nov 2010 00:31:37 +0000 (16:31 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 17 Nov 2010 01:48:26 +0000 (17:48 -0800)
This was supposed to have been removed by 80ebaca, when negative val-
ues for the newname_len argument stopped being used.

mro.c

diff --git a/mro.c b/mro.c
index 9083d56..8276795 100644 (file)
--- a/mro.c
+++ b/mro.c
@@ -737,7 +737,6 @@ Perl_mro_package_moved(pTHX_ HV * const stash, HV * const oldstash,
        newname = SvPV_const(namesv, len);
        newname_len = len - 2; /* skip trailing :: */
     }
-    if(newname_len < 0) newname_len = -newname_len;
 
     /* Get a list of all the affected classes. */
     /* We cannot simply pass them all to mro_isa_changed_in to avoid