This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
90ba1f3
)
Remove redundant call to mro_get_linear_isa
author
Father Chrysostomos
<sprout@cpan.org>
Sat, 13 Nov 2010 01:55:54 +0000
(17:55 -0800)
committer
Father Chrysostomos
<sprout@cpan.org>
Sat, 13 Nov 2010 01:55:54 +0000
(17:55 -0800)
added by 80ebaca, like most of my recent mistakes.
mro.c
patch
|
blob
|
blame
|
history
diff --git
a/mro.c
b/mro.c
index
80264c2
..
955ef90
100644
(file)
--- 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;