diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-03-31 18:38:42 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-01 12:01:35 +1200 |
| commit | 22921e25517d6c195d0fab9eb946bfafb563c256 (patch) | |
| tree | e7ef4ba682dc5663a43c21c9ade1232c27eff250 /pp_ctl.c | |
| parent | ac1d45ba28d946eab50fa4af2a48e56aa1122da1 (diff) | |
| download | perl-22921e25517d6c195d0fab9eb946bfafb563c256.tar.gz | |
Don't use setjmp() and longjmp() in complex exprs
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1972,7 +1972,8 @@ OP *o; assert(CATCH_GET == TRUE); DEBUG_l(deb("(Setting up local jumplevel, runlevel = %d)\n", runlevel+1)); #endif - switch ((ret = JMPENV_PUSH)) { + JMPENV_PUSH(ret); + switch (ret) { default: /* topmost level handles it */ JMPENV_POP; runlevel = oldrunlevel; |