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