From: Nicholas Clark Date: Mon, 5 Dec 2005 20:37:11 +0000 (+0000) Subject: The extra return is actually a duplicated code path, and can go. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40a17c4cace9bd7e00de12a13d75deb4af96a552;p=p5sagit%2Fp5-mst-13.2.git The extra return is actually a duplicated code path, and can go. p4raw-id: //depot/perl@26265 --- diff --git a/sv.c b/sv.c index b645426..e63531a 100644 --- a/sv.c +++ b/sv.c @@ -1752,13 +1752,11 @@ Perl_sv_2iv_flags(pTHX_ register SV *sv, I32 flags) ) SvIOK_on(sv); SvIsUV_on(sv); - ret_iv_max: DEBUG_c(PerlIO_printf(Perl_debug_log, "0x%"UVxf" 2iv(%"UVuf" => %"IVdf") (as unsigned)\n", PTR2UV(sv), SvUVX(sv), SvUVX(sv))); - return (IV)SvUVX(sv); } } else if (SvPOKp(sv) && SvLEN(sv)) { @@ -1872,7 +1870,6 @@ Perl_sv_2iv_flags(pTHX_ register SV *sv, I32 flags) SvIsUV_on(sv); } } - goto ret_iv_max; } #else /* NV_PRESERVES_UV */ if ((numtype & (IS_NUMBER_IN_UV | IS_NUMBER_NOT_INT)) @@ -1906,9 +1903,7 @@ Perl_sv_2iv_flags(pTHX_ register SV *sv, I32 flags) 1 1 already read UV. so there's no point in sv_2iuv_non_preserve() attempting to use atol, strtol, strtoul etc. */ - if (sv_2iuv_non_preserve (sv, numtype) - >= IS_NUMBER_OVERFLOW_IV) - goto ret_iv_max; + sv_2iuv_non_preserve (sv, numtype); } } #endif /* NV_PRESERVES_UV */