diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1999-08-14 09:20:58 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1999-08-14 09:20:58 +0000 |
| commit | a7c6d24429ab2b6db54575a3bdc62c7ed9f881cf (patch) | |
| tree | 7d35f0d7ea024de4150a892601d0a84bcd7d1c59 /cop.h | |
| parent | 7e291ef107a151a0b630a8ce85d6a562438da741 (diff) | |
| download | perl-a7c6d24429ab2b6db54575a3bdc62c7ed9f881cf.tar.gz | |
New lightweight Carp has a require. If Carp is used in a __DIE__ handler
this causes a POPSTACK panic. The problem seems to be that although
die_where() has unwound the tail of perl_vdie() top_env setjmp has been
set to resume execution there. Avoiding setting CATCH_SET(TRUE) in
call_sv() avoids this. So invent a new G_NOCATCH flag to disable
messing with CATCH_SET() in call_sv, use it in perl_vdie().
Add test to op/eval.t which will fail (panic) if bug comes back.
>>> I AM NOT CONVINCED THIS IS CORRECT LONG TERM FIX <<<
p4raw-id: //depot/perl@3988
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -297,6 +297,7 @@ struct context { #define G_NOARGS 8 /* Don't construct a @_ array. */ #define G_KEEPERR 16 /* Append errors to $@, don't overwrite it */ #define G_NODEBUG 32 /* Disable debugging at toplevel. */ +#define G_NOCATCH 64 /* Don't do CATCH_SET() */ /* flag bits for PL_in_eval */ #define EVAL_NULL 0 /* not in an eval */ |