diff options
| author | Philip Newton <pne@cpan.org> | 2001-05-15 17:09:30 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-16 17:47:26 +0000 |
| commit | 777b0c87f0d15073b0bd634821e2497ea2f94b75 (patch) | |
| tree | f277d63112af7f43c43e7f7a721de6b723e2ce80 | |
| parent | 5661b806114e60d8d9df6ec501b2d0847fe97d4c (diff) | |
| download | perl-777b0c87f0d15073b0bd634821e2497ea2f94b75.tar.gz | |
Re: [ID 20010515.001] -DPERL_Y2KWARN doesn't do what it should (Not OK: perl v5.7.1 +DEVEL10104 on i586-linux 2.2.16-22 (UNINST
Message-ID: <3B0146AA.2839.17BFDA6@localhost>
Test case for #10128.
p4raw-id: //depot/perl@10134
| -rw-r--r-- | t/pragma/warn/pp_hot | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/pragma/warn/pp_hot b/t/pragma/warn/pp_hot index b21117ca86..3ee853f6e2 100644 --- a/t/pragma/warn/pp_hot +++ b/t/pragma/warn/pp_hot @@ -225,6 +225,10 @@ $x = "19$yy\n"; $x = "19" . $yy . "\n"; $x = "319$yy\n"; $x = "319" . $yy . "\n"; +$yy = 19; +$x = "ok $yy\n"; +$yy = 9; +$x = 1 . $yy; no warnings 'y2k'; $x = "19$yy\n"; $x = "19" . $yy . "\n"; |