diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-20 07:01:26 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-20 07:01:26 +0000 |
| commit | 30adffae6205ce03b6a039dea7bf52af0341657f (patch) | |
| tree | eb8855debf79b8cabc7b2ee5b8ed1e8364ce9da4 /perl.c | |
| parent | 52073c8cfba97ec38e542aa95d3739cd6d9faa0b (diff) | |
| parent | 17b275ff7f254c13ec0fa07c81e929826b830a85 (diff) | |
| download | perl-30adffae6205ce03b6a039dea7bf52af0341657f.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@4201
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -443,6 +443,10 @@ perl_destruct(pTHXx) PL_defstash = 0; SvREFCNT_dec(hv); + /* clear queued errors */ + SvREFCNT_dec(PL_errors); + PL_errors = Nullsv; + FREETMPS; if (destruct_level >= 2 && ckWARN_d(WARN_INTERNAL)) { if (PL_scopestack_ix != 0) |