From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Thu, 31 May 2001 11:36:46 +0000 (+0000)
Subject: Tolerate Win32 numerics
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fbfa96bda4befdd487dbdffb28474c77cd230a88;p=p5sagit%2Fp5-mst-13.2.git

Tolerate Win32 numerics

p4raw-id: //depot/perlio@10348
---

diff --git a/t/pragma/warn/toke b/t/pragma/warn/toke
index 6adddfc..242b005 100644
--- 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