summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-03-19 05:55:52 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-03-19 05:55:52 +0000
commitd98f61e7d51abbefcd3982d605d4bd09ed4ddd7f (patch)
tree0fe4b7cb5a932e8e59433ecae8bcc077da072ed3 /op.c
parent71a29c3c6e68e84b4c2fa366c4878918712829a9 (diff)
downloadperl-d98f61e7d51abbefcd3982d605d4bd09ed4ddd7f.tar.gz
support for C<use vmsish 'hushed'>; move VMSISH_EXIT out of
op_private (from Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>) p4raw-id: //depot/perl@5816
Diffstat (limited to 'op.c')
-rw-r--r--op.c14
1 files changed, 14 insertions, 0 deletions
diff --git a/op.c b/op.c
index 97d2e4b7f6..d2289847e8 100644
--- a/op.c
+++ b/op.c
@@ -5163,6 +5163,20 @@ Perl_ck_eval(pTHX_ OP *o)
}
OP *
+Perl_ck_exit(pTHX_ OP *o)
+{
+#ifdef VMS
+ HV *table = GvHV(PL_hintgv);
+ if (table) {
+ SV **svp = hv_fetch(table, "vmsish_exit", 11, FALSE);
+ if (svp && *svp && SvTRUE(*svp))
+ o->op_private |= OPpEXIT_VMSISH;
+ }
+#endif
+ return ck_fun(o);
+}
+
+OP *
Perl_ck_exec(pTHX_ OP *o)
{
OP *kid;