diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-10-19 13:45:23 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-19 21:09:27 +0000 |
| commit | 96e176bf068724d05d4927c116d41d2f78a2560d (patch) | |
| tree | e18e87ee8dc36dca37fb10687567e52e5db9cd78 /op.c | |
| parent | b8d190ff31df6d51464475a3b67820d11d6c9f06 (diff) | |
| download | perl-96e176bf068724d05d4927c116d41d2f78a2560d.tar.gz | |
vmsish fix, ieee rand() cleanup
Message-Id: <011019174427.d749b@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@12513
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -5432,6 +5432,15 @@ Perl_ck_delete(pTHX_ OP *o) } OP * +Perl_ck_die(pTHX_ OP *o) +{ +#ifdef VMS + if (VMSISH_HUSHED) o->op_private |= OPpHUSH_VMSISH; +#endif + return ck_fun(o); +} + +OP * Perl_ck_eof(pTHX_ OP *o) { I32 type = o->op_type; @@ -5500,6 +5509,7 @@ Perl_ck_exit(pTHX_ OP *o) if (svp && *svp && SvTRUE(*svp)) o->op_private |= OPpEXIT_VMSISH; } + if (VMSISH_HUSHED) o->op_private |= OPpHUSH_VMSISH; #endif return ck_fun(o); } |