diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-04 01:59:26 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-04 01:59:26 +0000 |
| commit | 79cb57f6e01f91d8fff40d69caa187aaa669671b (patch) | |
| tree | eabaee443cecc2e9ff909a291c140663c1fd4954 /gv.c | |
| parent | 053fc87424630413980be29cbecbb76f658c5d74 (diff) | |
| download | perl-79cb57f6e01f91d8fff40d69caa187aaa669671b.tar.gz | |
correct places that said newSVpv() when they meant newSVpvn()
p4raw-id: //depot/perl@3217
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -635,15 +635,15 @@ gv_fetchpv(const char *nambeg, I32 add, I32 sv_type) && AvFILLp(av) == -1) { char *pname; - av_push(av, newSVpv(pname = "NDBM_File",0)); + av_push(av, newSVpvn(pname = "NDBM_File",9)); gv_stashpvn(pname, 9, TRUE); - av_push(av, newSVpv(pname = "DB_File",0)); + av_push(av, newSVpvn(pname = "DB_File",7)); gv_stashpvn(pname, 7, TRUE); - av_push(av, newSVpv(pname = "GDBM_File",0)); + av_push(av, newSVpvn(pname = "GDBM_File",9)); gv_stashpvn(pname, 9, TRUE); - av_push(av, newSVpv(pname = "SDBM_File",0)); + av_push(av, newSVpvn(pname = "SDBM_File",9)); gv_stashpvn(pname, 9, TRUE); - av_push(av, newSVpv(pname = "ODBM_File",0)); + av_push(av, newSVpvn(pname = "ODBM_File",9)); gv_stashpvn(pname, 9, TRUE); } } |