diff options
| author | Gurusamy Sarathy <gsar@engin.umich.edu> | 1997-02-25 17:00:49 -0500 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-25 13:12:02 +1200 |
| commit | 20efc0829f6564c44574762adb07e8865bc14026 (patch) | |
| tree | d07fa643b75a8f280b75a04451bc321ad3f51d96 | |
| parent | 907a881cde89c56bc61d3f314c0efb8754ca472a (diff) | |
| download | perl-20efc0829f6564c44574762adb07e8865bc14026.tar.gz | |
_90 op/tie.t gets "Segmentation fault" with Sarathy's perl_call patch
On Tue, 25 Feb 1997 14:41:30 EST, Chip Salzenberg wrote:
>According to Gurusamy Sarathy:
>> On Tue, 25 Feb 1997 10:07:02 PST, David Dyck wrote:
>> >summary:
>> > op/tie.t gets "Segmentation fault" with Sarathy's perl_call patch
>>
>> Try this patch.
>
>That's got it. Now pureperl doesn't complain about op/tie.t.
>
Good. This here patch sets up the flag in a few more places (to avoid
redundant sigjmp()s which was why t/op/tie.t triggered execution
of docatch()). This patch fixes that flag leak.
p5p-msgid: <199702252200.RAA16853@aatma.engin.umich.edu>
| -rw-r--r-- | perl.c | 4 | ||||
| -rw-r--r-- | pp_ctl.c | 1 |
2 files changed, 5 insertions, 0 deletions
@@ -509,6 +509,7 @@ setuid perl scripts securely.\n"); calllist(endav); return STATUS_NATIVE_EXPORT; case 3: + mustcatch = FALSE; PerlIO_printf(PerlIO_stderr(), "panic: top_env\n"); return 1; } @@ -800,6 +801,7 @@ PerlInterpreter *sv_interp; #endif return STATUS_NATIVE_EXPORT; case 3: + mustcatch = FALSE; if (!restartop) { PerlIO_printf(PerlIO_stderr(), "panic: restartop\n"); FREETMPS; @@ -1030,6 +1032,7 @@ I32 flags; /* See G_* flags in cop.h */ my_exit_jump(); /* NOTREACHED */ case 3: + mustcatch = FALSE; if (restartop) { op = restartop; restartop = 0; @@ -1140,6 +1143,7 @@ restart: my_exit_jump(); /* NOTREACHED */ case 3: + mustcatch = FALSE; if (restartop) { op = restartop; restartop = 0; @@ -1968,6 +1968,7 @@ OP *o; PerlIO_printf(PerlIO_stderr(), "panic: restartop\n"); break; } + mustcatch = FALSE; op = restartop; restartop = 0; /* FALL THROUGH */ |