From 531d22547835232ffe15fd22440ad9c72687d752 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Fri, 16 Nov 2001 12:37:04 -0500
Subject: [PATCH] Re: [ID 20011116.125] $a = undef; print "$a\n"; does not warn
 Message-ID: <20011116173703.L30160@blackrider>

p4raw-id: //depot/perl@13085
---
 t/lib/warnings/sv | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/t/lib/warnings/sv b/t/lib/warnings/sv
index 29bef82..3903df3 100644
--- a/t/lib/warnings/sv
+++ b/t/lib/warnings/sv
@@ -180,6 +180,17 @@ $C .= $A ;
 EXPECT
 Use of uninitialized value in concatenation (.) or string at - line 10.
 ########
+# perlbug 20011116.125
+use warnings 'uninitialized';
+$a = undef;
+$foo = join '', $a, "\n";
+$foo = "$a\n";
+$foo = "a:$a\n";
+EXPECT
+Use of uninitialized value in join or string at - line 4.
+Use of uninitialized value in concatenation (.) or string at - line 5.
+Use of uninitialized value in concatenation (.) or string at - line 6.
+########
 # sv.c 
 use warnings 'numeric' ;
 sub TIESCALAR{bless[]} ; 
-- 
2.7.4