This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid a redundant check in mro.c
authorFather Chrysostomos <sprout@cpan.org>
Sat, 27 Nov 2010 15:11:20 +0000 (07:11 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 27 Nov 2010 15:41:47 +0000 (07:41 -0800)
commit06f3ce8671cf9695edecc29f8df95fec541d24ed
tree8849ddf75f7e506c4d5ac353a1159cd07ecf817f
parent479c6c1fd338d42abb75c5a3b20536d596088a32
Avoid a redundant check in mro.c

This code is never reached if oldstash is a hash without an HvENAME.

So instead of checking oldstash in the ?:, then hvename in the if(),
we can do one check.

If oldstash is no longer in the symbol table, then this code is never
reached, because of the if(!fetched_isarev) guard.
mro.c