Lines Matching refs:warned
1060 my $warned = '';
1061 local $SIG{__WARN__} = sub {$warned = $_[0]} ;
1073 ok 153, $warned eq ''
1074 or print "# Caught warning [$warned]\n" ;
1077 $warned = '';
1086 ok 154, $warned eq ''
1087 or print "# Caught warning [$warned]\n" ;
1091 $warned = '';
1100 ok 155, $warned eq ''
1101 or print "# Caught warning [$warned]\n" ;
1105 $warned = '';
1114 ok 156, $warned eq ''
1115 or print "# Caught warning [$warned]\n" ;
1142 $warned = '';
1144 ok 159, $warned eq ''
1145 or print "# Caught warning [$warned]\n" ;
1146 $warned = '';
1153 ok 161, $warned eq ''
1154 or print "# Caught warning [$warned]\n" ;
1155 $warned = '';