Lines Matching refs:warned
1083 my $warned = '';
1084 local $SIG{__WARN__} = sub {$warned = $_[0]} ;
1096 ok 170, $warned eq ''
1097 or print "# Caught warning [$warned]\n" ;
1100 $warned = '';
1109 ok 171, $warned eq ''
1110 or print "# Caught warning [$warned]\n" ;
1114 $warned = '';
1123 ok 172, $warned eq ''
1124 or print "# Caught warning [$warned]\n" ;
1128 $warned = '';
1137 ok 173, $warned eq ''
1138 or print "# Caught warning [$warned]\n" ;
1164 $warned = '';
1168 ok 177, $warned eq ''
1169 or print "# Caught warning [$warned]\n" ;
1170 $warned = '';
1179 ok 181, $warned eq ''
1180 or print "# Caught warning [$warned]\n" ;
1181 $warned = '';