diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-05-10 15:38:07 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-05-10 15:38:07 +0000 |
| commit | c69006e4a4556d3b1d6e1a57c49a95b1d16efeb0 (patch) | |
| tree | 98297c1327e41049d27edc7b25511919e0ad2f2b /ext | |
| parent | ea6e9374082ba65411b39d56a62387c8a2bd2879 (diff) | |
| download | perl-c69006e4a4556d3b1d6e1a57c49a95b1d16efeb0.tar.gz | |
s/sv_setpv(sv,"")/sv_setpvn(sv,"",0)/
plus a couple of 1 byte sv_setpv()s too.
p4raw-id: //depot/perl@24439
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B.xs | 2 | ||||
| -rw-r--r-- | ext/Storable/Storable.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index a5aecbb0f9..fc9ef7c4e0 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -257,7 +257,7 @@ cstring(pTHX_ SV *sv, bool perlstyle) SV *tmpsv = sv_newmortal(); /* Temporary SV to feed sv_uni_display */ len = SvCUR(sv); s = sv_uni_display(tmpsv, sv, 8*len, UNI_DISPLAY_QQ); - sv_setpv(sstr,"\""); + sv_setpvn(sstr,"\"",1); while (*s) { if (*s == '"') diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index aaf62e2473..628dd0a106 100644 --- a/ext/Storable/Storable.xs +++ b/ext/Storable/Storable.xs @@ -5386,7 +5386,7 @@ static SV *retrieve_code(pTHX_ stcxt_t *cxt, char *cname) if (SvROK(cxt->eval) && SvTYPE(SvRV(cxt->eval)) == SVt_PVCV) { SV* errsv = get_sv("@", TRUE); - sv_setpv(errsv, ""); /* clear $@ */ + sv_setpvn(errsv, "", 0); /* clear $@ */ PUSHMARK(sp); XPUSHs(sv_2mortal(newSVsv(sub))); PUTBACK; |