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

/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dvmsish.t51 $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_tes
170 sub do_a_perl { subroutine
[all...]

Completed in 113 milliseconds