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 /util.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 'util.c')
-rw-r--r-- | util.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1277,7 +1277,7 @@ die(const char* pat, ...) SV *msg; ENTER; - if(message) { + if (message) { msg = newSVpv(message, 0); SvREADONLY_on(msg); SAVEFREESV(msg); @@ -2840,7 +2840,7 @@ new_struct_thread(struct perl_thread *t) SV **svp; I32 i; - sv = newSVpv("", 0); + sv = newSVpvn("", 0); SvGROW(sv, sizeof(struct perl_thread) + 1); SvCUR_set(sv, sizeof(struct perl_thread)); thr = (Thread) SvPVX(sv); @@ -2864,7 +2864,7 @@ new_struct_thread(struct perl_thread *t) thr->cvcache = newHV(); thr->threadsv = newAV(); thr->specific = newAV(); - thr->errsv = newSVpv("", 0); + thr->errsv = newSVpvn("", 0); thr->errhv = newHV(); thr->flags = THRf_R_JOINABLE; MUTEX_INIT(&thr->mutex); |