In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b8fffdb01477dabb63e42a81b627c93f7d812bff?hp=15ed07b09b354c784e18cb6d08ffa2b3eec19073>
- Log ----------------------------------------------------------------- commit b8fffdb01477dabb63e42a81b627c93f7d812bff Author: Jarkko Hietaniemi <[email protected]> Date: Sat Sep 20 18:38:10 2014 -0400 Negation of "-e1" no more todo. M t/op/negate.t commit 926f5fc6ecfa896e5b7e0c39b794ab190e33afc4 Author: Jarkko Hietaniemi <[email protected]> Date: Sat Sep 20 19:45:35 2014 -0400 Fix -"-e1". Was broken by ae776a2c. M numeric.c ----------------------------------------------------------------------- Summary of changes: numeric.c | 2 +- t/op/negate.t | 4 ---- 2 files changed, 1 insertion(+), 5 deletions(-) diff --git a/numeric.c b/numeric.c index 5691120..c7f5fdd 100644 --- a/numeric.c +++ b/numeric.c @@ -831,7 +831,7 @@ Perl_grok_number_flags(pTHX_ const char *pv, STRLEN len, UV *valuep, U32 flags) return 0; } - if (s < send) { + if (s > d && s < send) { /* we can have an optional exponent part */ if (isALPHA_FOLD_EQ(*s, 'e')) { s++; diff --git a/t/op/negate.t b/t/op/negate.t index 71c6ab2..8fa8c0a 100644 --- a/t/op/negate.t +++ b/t/op/negate.t @@ -34,9 +34,7 @@ is(-" -10", 10, "Negation of a whitespace-lead numeric string"); is(-" -10.0", 10, "Negation of a whitespace-lead decimal string"); is(-" -10foo", 10, "Negation of a whitespace-lead sting starting with a numeric"); -{ local $::TODO = 'broken'; is(-"-e1", "+e1", "Negation of e1"); -} $x = "dogs"; ()=0+$x; @@ -94,9 +92,7 @@ is -$t, -97656250000000000, 'magic str+int dualvar'; is(-" -10.0", 10, "Negation of a whitespace-lead decimal string"); is(-" -10foo", 10, "Negation of a whitespace-lead sting starting with a numeric"); - { local $::TODO = 'broken'; is(-"-e1", "+e1", "Negation of e1 (use integer)"); - } $x = "dogs"; ()=0+$x; -- Perl5 Master Repository
