Lines Matching refs:do_a_perl
51 $msg = do_a_perl('-e "exit 1"');
56 $msg = do_a_perl('-e "use vmsish qw(exit); exit 1"');
61 $msg = do_a_perl('-e "use vmsish qw(exit); exit 44"');
66 $msg = do_a_perl('-e "use vmsish qw(hushed); exit 1"');
70 $msg = do_a_perl('-e "use vmsish qw(exit hushed); exit 44"');
74 $msg = do_a_perl('-e "use vmsish qw(exit hushed); no vmsish qw(hushed); exit 44"');
78 $msg = do_a_perl('-e "use vmsish qw(hushed); die(qw(blah));"');
82 $msg = do_a_perl('-e "use vmsish qw(hushed); use Carp; croak(qw(blah));"');
86 $msg = do_a_perl('-e "use vmsish qw(exit); vmsish::hushed(1); exit 44;"');
96 $msg = do_a_perl('vmsish_test.pl');
170 sub do_a_perl {