diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-11 20:37:23 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-11 20:37:23 +0000 |
| commit | c2e66d9e68806a7000ee1a4760c35703a0e0ae89 (patch) | |
| tree | 32508ca896b6e213afc07430f7aa223c0e9dde28 /sv.c | |
| parent | 4755096ec61711c5104ba0b6b9314f32ca0351fe (diff) | |
| download | perl-c2e66d9e68806a7000ee1a4760c35703a0e0ae89.tar.gz | |
integrate cfgperl changes#6325..6373 into mainline
(NOTE: today's batch of integrations still untested)
p4raw-link: @6373 (not found)
p4raw-link: @6325 on //depot/cfgperl: d6ac44cc5a00fa38a56717785146bc16b716472c
p4raw-id: //depot/perl@6373
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -6133,6 +6133,8 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV /* INTEGERS */ case 'p': + if (alt) + goto unknown; if (args) uv = PTR2UV(va_arg(*args, void*)); else @@ -6429,7 +6431,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV } } else if (svix < svmax) - sv_setuv(svargs[svix++], (UV)i); + sv_setuv_mg(svargs[svix++], (UV)i); continue; /* not "break" */ /* UNKNOWN */ |