Lines Matching refs:good
91 my $good = 1; my $warn;
93 local $SIG{__WARN__} = sub { $good = 0; $warn = shift(); ctrlfix($warn)};
97 print $good ? "ok $N\n" : "not ok $N # $warn\n";
98 $N++; $good = 1;
100 $N++; $good = 1;
103 $N++; $good = 1;
105 print $good ? "ok $N\n" : "not ok $N # $warn\n";
106 $N++; $good = 1;
135 my $good = 1;
142 $good = 0;
145 print $good ? "ok $N\n" : "not ok $N # $msg\n";