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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Deval.t371 sub db5 { my $x=4; eval '$x' } subroutine
381 print DB::db5() == 3 ? 'ok' : 'not ok', " $test\n"; $test++;

Completed in 15 milliseconds