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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Deval.t130 sub do_eval3 { subroutine
136 do_eval3('print "$ok ' . $x++ . '\n"');
137 do_eval3('eval q[print "$ok ' . $x++ . '\n"]');
138 do_eval3('sub { eval q[print "$ok ' . $x++ . '\n"] }->()');

Completed in 24 milliseconds