diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-31 12:35:05 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-31 12:35:05 +0000 |
| commit | ba3c660aac8fdfad49058b3b0d31d8157dcc4173 (patch) | |
| tree | 763a9e07c462b0bed6f4bfd8039b6956aa4c4f63 /t | |
| parent | 6d1a7737fddfac3a4d56997b56d9d1732eb0d205 (diff) | |
| parent | d81cc1197265cf2e1ba85b72980f829cb1ccf30b (diff) | |
| download | perl-ba3c660aac8fdfad49058b3b0d31d8157dcc4173.tar.gz | |
Integrate perlio:
[ 10350]
win32 - dmake regen_config_h
[ 10348]
Tolerate Win32 numerics
p4raw-link: @10350 on //depot/perlio: d81cc1197265cf2e1ba85b72980f829cb1ccf30b
p4raw-link: @10348 on //depot/perlio: fbfa96bda4befdd487dbdffb28474c77cd230a88
p4raw-id: //depot/perl@10358
Diffstat (limited to 't')
| -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 |