From: Michael G. Schwern <schwern@pobox.com>
Date: Fri, 16 Nov 2001 17:37:04 +0000 (-0500)
Subject: Re: [ID 20011116.125] $a = undef; print "$a\n"; does not warn
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=531d22547835232ffe15fd22440ad9c72687d752;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20011116.125] $a = undef; print "$a\n"; does not warn
Message-ID: <20011116173703.L30160@blackrider>

p4raw-id: //depot/perl@13085
---

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[]} ;