Lines Matching refs:warned
1563 my $warned = '';
1564 local $SIG{__WARN__} = sub {$warned = $_[0]} ;
1576 ok 189, $warned eq ''
1577 or print "# Caught warning [$warned]\n" ;
1580 $warned = '';
1589 ok 190, $warned eq ''
1590 or print "# Caught warning [$warned]\n" ;
1594 $warned = '';
1603 ok 191, $warned eq ''
1604 or print "# Caught warning [$warned]\n" ;
1608 $warned = '';
1617 ok 192, $warned eq ''
1618 or print "# Caught warning [$warned]\n" ;
1645 $warned = '';
1647 ok 195, $warned eq ''
1648 or print "# Caught warning [$warned]\n" ;
1649 $warned = '';
1656 ok 197, $warned eq ''
1657 or print "# Caught warning [$warned]\n" ;
1658 $warned = '';