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 /dump.c | |
| 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 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1343,7 +1343,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo Perl_dump_indent(aTHX_ level, file, " MAX = %"IVdf"\n", (IV)AvMAX(sv)); Perl_dump_indent(aTHX_ level, file, " ARYLEN = 0x%"UVxf"\n", PTR2UV(AvARYLEN(sv))); flags = AvFLAGS(sv); - sv_setpv(d, ""); + sv_setpvn(d, "", 0); if (flags & AVf_REAL) sv_catpv(d, ",REAL"); if (flags & AVf_REIFY) sv_catpv(d, ",REIFY"); if (flags & AVf_REUSED) sv_catpv(d, ",REUSED"); |