diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-11-03 22:19:47 +0000 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-11-03 22:19:47 +0000 |
| commit | e84ce9a2716d1220bc7c4b3a55e98e4a3ca18136 (patch) | |
| tree | 238726641ddab81ddfc4320d11fcc6de8a412e86 /gv.c | |
| parent | 4c85b59c156c7ad7ba08eb430618e674134ced22 (diff) | |
| download | perl-e84ce9a2716d1220bc7c4b3a55e98e4a3ca18136.tar.gz | |
Fix DBM module handling broken by #34653.
p4raw-id: //depot/perl@34710
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 21 |
1 files changed, 10 insertions, 11 deletions
@@ -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; |