From 9efb5c72cc32d3071e0aabf8f31a9d251c8b467a Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 20 May 2011 22:06:35 -0700 Subject: [PATCH 1/1] Move an assert Due to my own sloppy editing, this assert ending up doing nothing, as perl would already have crashed before reaching it. --- gv.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gv.c b/gv.c index d22a439..72cc9f6 100644 --- a/gv.c +++ b/gv.c @@ -960,6 +960,7 @@ Perl_gv_stashpvn(pTHX_ const char *name, U32 namelen, I32 flags) return NULL; stash = GvHV(tmpgv); if (!(flags & ~GV_NOADD_MASK) && !stash) return NULL; + assert(stash); if (!HvNAME_get(stash)) { hv_name_set(stash, name, namelen, 0); @@ -969,7 +970,6 @@ Perl_gv_stashpvn(pTHX_ const char *name, U32 namelen, I32 flags) if (HvAUX(GvSTASH(tmpgv))->xhv_name_count) mro_package_moved(stash, NULL, tmpgv, 1); } - assert(stash); return stash; } -- 1.8.3.1