diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-01 18:16:56 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-02 08:17:29 +0000 |
| commit | 616d8c9c7dee8ffe0d25891708d3380cabc2db84 (patch) | |
| tree | 4e1a9a0cc5de7976381c0d524bbe41f304263246 /gv.c | |
| parent | 2d99a18158f05eca46c81c61c1d5e7d024632616 (diff) | |
| download | perl-616d8c9c7dee8ffe0d25891708d3380cabc2db84.tar.gz | |
use lengths in sv_setpv() calls
Message-ID: <20050602041656.GA3000@petdance.com>
p4raw-id: //depot/perl@24669
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1094,11 +1094,11 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags, break; case '\014': /* $^L */ - sv_setpv(GvSV(gv),"\f"); + sv_setpvn(GvSV(gv),"\f",1); PL_formfeed = GvSV(gv); break; case ';': - sv_setpv(GvSV(gv),"\034"); + sv_setpvn(GvSV(gv),"\034",1); break; case ']': { |