Change 13085 by jhi@alpha on 2001/11/18 21:57:23
Subject: [PATCH t/lib/warnings/sv] Re: [ID 20011116.125] $a = undef; print
"$a\n"; does not warn
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Fri, 16 Nov 2001 17:37:04 -0500
Message-ID: <20011116173703.L30160@blackrider>
Affected files ...
.... //depot/perl/t/lib/warnings/sv#4 edit
Differences ...
==== //depot/perl/t/lib/warnings/sv#4 (text) ====
Index: perl/t/lib/warnings/sv
--- perl/t/lib/warnings/sv.~1~ Sun Nov 18 15:00:05 2001
+++ perl/t/lib/warnings/sv Sun Nov 18 15:00:05 2001
@@ -180,6 +180,17 @@
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[]} ;
End of Patch.
