From 777b0c87f0d15073b0bd634821e2497ea2f94b75 Mon Sep 17 00:00:00 2001
From: Philip Newton <pne@cpan.org>
Date: Tue, 15 May 2001 17:09:30 +0200
Subject: [PATCH] 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
---
 t/pragma/warn/pp_hot | 4 ++++
 1 file changed, 4 insertions(+)

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";
-- 
2.7.4