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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/
H A Dsubval.t21 sub foo4 { subroutine
45 if (&foo4(0) eq 'true2') {print "ok 7\n";} else {print "not ok 7\n";}
46 if (&foo4(1) eq 'true3') {print "ok 8\n";} else {print "not ok 8\n";}
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t432 sub X::foo4 ($);
433 *X::foo4 = sub ($) {'ok'};
434 print "not " unless X->foo4 eq 'ok';

Completed in 22 milliseconds