diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-03-08 01:28:37 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-09 11:46:17 +0000 |
| commit | 58e33a9028ebaa2c94f6b7cf202a415b19dab366 (patch) | |
| tree | fefebdd479a6e413e819d5b82b6a9377e6028421 /sv.c | |
| parent | b14574b4c5983698eb9d1a38f94eef3a65c411c2 (diff) | |
| download | perl-58e33a9028ebaa2c94f6b7cf202a415b19dab366.tar.gz | |
Re: [perl #21498] printf behaviour changes 5.6.1(and earlier) -> 5.8
Message-ID: <20030307212837.GB765@ratsnest.hole>
(and few more test cases from the thread)
p4raw-id: //depot/perl@18861
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -8358,6 +8358,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV STRLEN zeros = 0; bool has_precis = FALSE; STRLEN precis = 0; + I32 osvix = svix; bool is_utf8 = FALSE; /* is this item utf8? */ #ifdef HAS_LDBL_SPRINTF_BUG /* This is to try to fix a bug with irix/nonstop-ux/powerux and @@ -9109,7 +9110,6 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV default: unknown: - vectorize = FALSE; if (!args && ckWARN(WARN_PRINTF) && (PL_op->op_type == OP_PRTF || PL_op->op_type == OP_SPRINTF)) { SV *msg = sv_newmortal(); @@ -9141,6 +9141,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV p += elen; *p = '\0'; SvCUR(sv) = p - SvPVX(sv); + svix = osvix; continue; /* not "break" */ } |