From: Philip Newton Date: Tue, 15 May 2001 15:09:30 +0000 (+0200) Subject: Re: [ID 20010515.001] -DPERL_Y2KWARN doesn't do what it should (Not OK: perl v5.7... X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=777b0c87f0d15073b0bd634821e2497ea2f94b75;p=p5sagit%2Fp5-mst-13.2.git 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 --- diff --git a/t/pragma/warn/pp_hot b/t/pragma/warn/pp_hot index b21117c..3ee853f 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";