From e84ce9a2716d1220bc7c4b3a55e98e4a3ca18136 Mon Sep 17 00:00:00 2001 From: Marcus Holland-Moritz Date: Mon, 3 Nov 2008 22:19:47 +0000 Subject: [PATCH] Fix DBM module handling broken by #34653. p4raw-id: //depot/perl@34710 --- gv.c | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/gv.c b/gv.c index d1c2d11..5bf82f2 100644 --- a/gv.c +++ b/gv.c @@ -1213,17 +1213,16 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, if ((add & GV_ADDMULTI) && strEQ(nambeg,"AnyDBM_File::ISA") && AvFILLp(av) == -1) { - const char *pname; - av_push(av, newSVpvs(pname = "NDBM_File")); - gv_stashpvn(pname, 9, GV_ADD); - av_push(av, newSVpvs(pname = "DB_File")); - gv_stashpvn(pname, 7, GV_ADD); - av_push(av, newSVpvs(pname = "GDBM_File")); - gv_stashpvn(pname, 9, GV_ADD); - av_push(av, newSVpvs(pname = "SDBM_File")); - gv_stashpvn(pname, 9, GV_ADD); - av_push(av, newSVpvs(pname = "ODBM_File")); - gv_stashpvn(pname, 9, GV_ADD); + av_push(av, newSVpvs("NDBM_File")); + gv_stashpvs("NDBM_File", GV_ADD); + av_push(av, newSVpvs("DB_File")); + gv_stashpvs("DB_File", GV_ADD); + av_push(av, newSVpvs("GDBM_File")); + gv_stashpvs("GDBM_File", GV_ADD); + av_push(av, newSVpvs("SDBM_File")); + gv_stashpvs("SDBM_File", GV_ADD); + av_push(av, newSVpvs("ODBM_File")); + gv_stashpvs("ODBM_File", GV_ADD); } } break; -- 2.7.4