summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-04-04 01:59:26 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-04-04 01:59:26 +0000
commit79cb57f6e01f91d8fff40d69caa187aaa669671b (patch)
treeeabaee443cecc2e9ff909a291c140663c1fd4954 /util.c
parent053fc87424630413980be29cbecbb76f658c5d74 (diff)
downloadperl-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.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/util.c b/util.c
index f08a593b93..0b3673e049 100644
--- a/util.c
+++ b/util.c
@@ -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);