Tolerate Win32 numerics

p4raw-id: //depot/perlio@10348

diff --git a/t/pragma/warn/toke b/t/pragma/warn/toke
index 6adddfc..242b005 100644 (file)
--- a/t/pragma/warn/toke
+++ b/t/pragma/warn/toke
@@ -450,6 +450,7 @@ $a = 1__23; print "$a\n";
 $a = 12.3__4; print "$a\n";
 $a = 12.34e1__2; print "$a\n";
 EXPECT
+OPTIONS regex
 Misplaced _ in number at - line 6.
 Misplaced _ in number at - line 11.
 Misplaced _ in number at - line 16.
@@ -503,10 +504,10 @@ _123
 123456000000000
 123456000000000
 123456000000000
-1.23456e-10
-1.23456e-10
-1.23456e-10
-1.23456e-10
+1.23456e-0?10
+1.23456e-0?10
+1.23456e-0?10
+1.23456e-0?10
 123
 12.34
 12340000000000
@@ -543,10 +544,10 @@ _123
 123456000000000
 123456000000000
 123456000000000
-1.23456e-10
-1.23456e-10
-1.23456e-10
-1.23456e-10
+1.23456e-0?10
+1.23456e-0?10
+1.23456e-0?10
+1.23456e-0?10
 123
 12.34
 12340000000000