From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 13 Nov 2010 01:55:54 +0000 (-0800)
Subject: Remove redundant call to mro_get_linear_isa
X-Git-Tag: v5.13.7~123
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/4a3e2e140c4c423bb5f396ee20688bd423063d53

Remove redundant call to mro_get_linear_isa

added by 80ebaca, like most of my recent mistakes.
---

diff --git a/mro.c b/mro.c
index 80264c2..955ef90 100644
--- a/mro.c
+++ b/mro.c
@@ -570,11 +570,6 @@ Perl_mro_isa_changed_in(pTHX_ HV* stash)
                 HV * const isa = (HV *)HeVAL(iter);
                 const HEK *namehek;
 
-                /* Re-calculate the linearisation, unless a previous iter-
-                   ation was for a subclass of this class. */
-                if(!HvMROMETA(revstash)->isa)
-                    (void)mro_get_linear_isa(revstash);
-
                 /* We're starting at the 2nd element, skipping revstash */
                 linear_mro = mro_get_linear_isa(revstash);
                 svp = AvARRAY(linear_mro) + 1;