diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-04 17:26:14 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-04 17:26:14 +0000 |
commit | be28567c7b4a66645fbbd71964c8c6819169207c (patch) | |
tree | e23769cbb6b905b96482f2ad825b7597b29eaa21 /sv.c | |
parent | 21a311eead0eeb6ab139ee2e94076b4d84d76c6f (diff) | |
download | perl-be28567c7b4a66645fbbd71964c8c6819169207c.tar.gz |
change#5905 wasn't quite right--it's intent only applies when arguments
to sv_vcatpvfn() are SVs instead of C types; back out change#5907 as well
p4raw-link: @5907 on //depot/cfgperl: 7cfcdf208eb7eff0b6f8313f1a5b14880681119d
p4raw-link: @5905 on //depot/cfgperl: 686fa4bb8e88f0c9a36218cdbf3c49f4a7b93b2a
p4raw-id: //depot/perl@6064
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 9 |
1 files changed, 2 insertions, 7 deletions
@@ -5935,11 +5935,6 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV break; } -#ifdef USE_64_BIT_INT - if (!intsize) - intsize = 'q'; -#endif - /* CONVERSION */ switch (c = *q++) { @@ -6069,7 +6064,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV iv = (svix < svmax) ? SvIVx(svargs[svix++]) : 0; switch (intsize) { case 'h': iv = (short)iv; break; - default: iv = (int)iv; break; + default: break; case 'l': iv = (long)iv; break; case 'V': break; #ifdef HAS_QUAD @@ -6151,7 +6146,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV uv = (svix < svmax) ? SvUVx(svargs[svix++]) : 0; switch (intsize) { case 'h': uv = (unsigned short)uv; break; - default: uv = (unsigned)uv; break; + default: break; case 'l': uv = (unsigned long)uv; break; case 'V': break; #ifdef HAS_QUAD |