[perl.git] branch blead, updated. v5.17.5-92-ge20b6c3

[Father Chrysostomos]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/e20b6c3b653d16e4505d98eecb1b95736f03ca75?hp=ac9f75b57c64f1cbeaf0caa63e0962e19df8d71a>

- Log -----------------------------------------------------------------
commit e20b6c3b653d16e4505d98eecb1b95736f03ca75
Author: Father Chrysostomos <spr...@cpan.org>
Date: Sun Oct 28 07:00:23 2012 -0700

sv.c: Fix code-before-declarations
-----------------------------------------------------------------------

Summary of changes:
sv.c | 8 ++++++--
1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/sv.c b/sv.c
index 7f40cc7..2a4eb6b 100644
--- a/sv.c
+++ b/sv.c
@@ -2282,7 +2282,8 @@ Perl_sv_2iv_flags(pTHX_ register SV *const sv, const I32 flags)

Regexps have no SvIVX and SvNVX fields.
*/
- assert(SvPOKp(sv));
+ assert(SvPOKp(sv));
+ {
UV value;
const int numtype
= grok_number(SvPVX_const(sv), SvCUR(sv), &value);
@@ -2303,6 +2304,7 @@ Perl_sv_2iv_flags(pTHX_ register SV *const sv, const I32 flags)
not_a_number(sv);
}
return I_V(Atof(SvPVX_const(sv)));
+ }
}

if (SvTHINKFIRST(sv)) {
@@ -2366,7 +2368,8 @@ Perl_sv_2uv_flags(pTHX_ register SV *const sv, const I32 flags)
/* FBMs use the space for SvIVX and SvNVX for other purposes, and use
the same flag bit as SVf_IVisUV, so must not let them cache IVs.
Regexps have no SvIVX and SvNVX fields. */
- assert(SvPOKp(sv));
+ assert(SvPOKp(sv));
+ {
UV value;
const int numtype
= grok_number(SvPVX_const(sv), SvCUR(sv), &value);
@@ -2382,6 +2385,7 @@ Perl_sv_2uv_flags(pTHX_ register SV *const sv, const I32 flags)
not_a_number(sv);
}
return U_V(Atof(SvPVX_const(sv)));
+ }
}

if (SvTHINKFIRST(sv)) {

--
Perl5 Master Repository