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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/
H A Dexit.t30 my $exit, $exit_arg;
61 $exit_arg = 42;
62 $exit = run("END { \$? = $exit_arg }");
68 $exit_arg = (44 & 7) if $^O eq 'VMS';
70 is( $exit >> 8, $exit_arg, 'Changing $? in END block' );

Completed in 13 milliseconds