Searched refs:notok (Results 1 - 2 of 2) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/dprof/
H A DV.pm10 @EXPORT_OK = qw( notok ok $num );
50 $x ? &ok : &notok;
57 sub notok { subroutine
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/
H A DAbbrev.t55 my $notok;
57 $SIG{__WARN__} = sub { $notok++ };
59 print ($notok ? "not ok $test\n" : "ok $test\n"); $test++;

Completed in 19 milliseconds