From: Paul de Weerd (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-28750-
1196931307-984.48238-75-0@perl.org>
p4raw-id: //depot/perl@32590
ok ($class->new(1)->fdiv('0.5')->bsstr(),'2e+0');
###############################################################################
-# [perl #30609] bug with $x -= $x not beeing 0, but 2*$x
+# [perl #30609] bug with $x -= $x not being 0, but 2*$x
$x = $class->new(3); $x -= $x; ok ($x, 0);
$x = $class->new(-3); $x -= $x; ok ($x, 0);
ok ($class->new(-1)->is_one(),0);
###############################################################################
-# [perl #30609] bug with $x -= $x not beeing 0, but 2*$x
+# [perl #30609] bug with $x -= $x not being 0, but 2*$x
$x = $class->new(3); $x -= $x; ok ($x, 0);
$x = $class->new(-3); $x -= $x; ok ($x, 0);
E23:NaN
1.23E1:NaN
1.23E-1:NaN
-# bug with two E's in number beeing valid
+# bug with two E's in number being valid
1e2e3:NaN
1e2r:NaN
1e2.0:NaN
-# bug with two '.' in number beeing valid
+# bug with two '.' in number being valid
1.2.2:NaN
1.2.3e1:NaN
-1.2.3:NaN
E23:NaN
1.23E1:12.3^
1.23E-1:0.123^
-# bug with two E's in number beeing valid
+# bug with two E's in number being valid
1e2e3:NaN
1e2r:NaN
1e2.0:NaN
ok ($class->new(1)->fdiv('0.5')->bsstr(),'2e+0');
###############################################################################
-# [perl #30609] bug with $x -= $x not beeing 0, but 2*$x
+# [perl #30609] bug with $x -= $x not being 0, but 2*$x
$x = $class->new(3); $x -= $x; ok ($x, 0);
$x = $class->new(-3); $x -= $x; ok ($x, 0);