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[]} ;
sub jim {}
*jim = \&joe ;
EXPECT
-Subroutine fred redefined at - line 5.
+Subroutine main::fred redefined at - line 5.
########
# sv.c
use warnings 'printf' ;