diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-19 05:55:52 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-19 05:55:52 +0000 |
commit | d98f61e7d51abbefcd3982d605d4bd09ed4ddd7f (patch) | |
tree | 0fe4b7cb5a932e8e59433ecae8bcc077da072ed3 /op.c | |
parent | 71a29c3c6e68e84b4c2fa366c4878918712829a9 (diff) | |
download | perl-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.c | 14 |
1 files changed, 14 insertions, 0 deletions
@@ -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; |