diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-05-31 11:36:46 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-05-31 11:36:46 +0000 |
| commit | fbfa96bda4befdd487dbdffb28474c77cd230a88 (patch) | |
| tree | cfeea334156b87fa89c725ecbe2f5f8af0e0dec1 /t/pragma/warn | |
| parent | 43c11ae32f2c63853f6dad68c06fa62b85a197d6 (diff) | |
| download | perl-fbfa96bda4befdd487dbdffb28474c77cd230a88.tar.gz | |
Tolerate Win32 numerics
p4raw-id: //depot/perlio@10348
Diffstat (limited to 't/pragma/warn')
| -rw-r--r-- | t/pragma/warn/toke | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/t/pragma/warn/toke b/t/pragma/warn/toke index 6adddfc800..242b0059fb 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 |