Change 34710 by [EMAIL PROTECTED] on 2008/11/03 22:19:47
Fix DBM module handling broken by #34653.
Affected files ...
... //depot/perl/gv.c#408 edit
Differences ...
==== //depot/perl/gv.c#408 (text) ====
Index: perl/gv.c
--- perl/gv.c#407~34705~ 2008-11-03 08:25:42.000000000 -0800
+++ perl/gv.c 2008-11-03 14:19:47.000000000 -0800
@@ -1213,17 +1213,16 @@
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;
End of Patch.
