diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-20 03:06:10 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-20 03:06:10 +0000 |
| commit | 5a844595b9262407e093364ec4d29a22962723f0 (patch) | |
| tree | 26cc1f15a25dbb3a9f2a698c89b85b9c7c37fd0e /ext/Thread | |
| parent | 371b7e1ad2e46c79c7794d9b0f41b49157e7653c (diff) | |
| download | perl-5a844595b9262407e093364ec4d29a22962723f0.tar.gz | |
queue errors due to strictures rather than printing them as
warnings; symbols that violate strictures do *not* end up in
the symbol table anyway, making multiple evals of the same piece
of code produce the same errors; errors indicate all locations
of a global symbol rather than just the first one; these
changes make compile-time failures within evals reliably
visible via the return value or contents of $@, and trappable
using __DIE__ hooks
p4raw-id: //depot/perl@4197
Diffstat (limited to 'ext/Thread')
| -rw-r--r-- | ext/Thread/Thread.xs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs index 772d41a495..e01f29de06 100644 --- a/ext/Thread/Thread.xs +++ b/ext/Thread/Thread.xs @@ -181,6 +181,7 @@ threadstart(void *arg) SvREFCNT_dec(PL_rs); SvREFCNT_dec(PL_nrs); SvREFCNT_dec(PL_statname); + SvREFCNT_dec(PL_errors); Safefree(PL_screamfirst); Safefree(PL_screamnext); Safefree(PL_reg_start_tmp); |