This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove redundant check
authorFather Chrysostomos <sprout@cpan.org>
Mon, 22 Nov 2010 00:27:56 +0000 (16:27 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 22 Nov 2010 14:22:53 +0000 (06:22 -0800)
There is a similar check about fifty lines back.
And it is silly to check HvARRAY on a named hash.

mro.c

diff --git a/mro.c b/mro.c
index 250ee5c..08320b7 100644 (file)
--- a/mro.c
+++ b/mro.c
@@ -1040,10 +1040,6 @@ S_mro_gather_and_rename(pTHX_ HV * const stashes, HV * const seen_stashes,
       }
     }
 
-    if(
-     (!stash || !HvARRAY(stash)) && (!oldstash || !HvARRAY(oldstash))
-    ) return;
-
     /* This is partly based on code in hv_iternext_flags. We are not call-
        ing that here, as we want to avoid resetting the hash iterator. */