This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 095a5c3) | patch
stopgap hack for $@ as unwinding reason indicator
authorZefram <zefram@fysh.org>
Mon, 6 Dec 2010 22:21:19 +0000 (22:21 +0000)
committerTony Cook <tony@develop-help.com>
Mon, 6 Dec 2010 23:53:36 +0000 (10:53 +1100)
commit22a30693fc87702395761f2f556d3f49e6c89c3d
treea20be896a685a1435c6bedb1a39a67b00162d06ftree | snapshot
parent095a5c3e83eb5f5932cdf8d475a61091dbf274e3commit | diff
stopgap hack for $@ as unwinding reason indicator

Set $@ early in a die as well as late, so that it continues to function
as an unreliable indicator of whether unwinding in progress is due to
an exception.  This is a stopgap arrangement, until the unwinding process
can be introspected properly.
MANIFEST diff | blob | blame | history
pp_ctl.c diff | blob | blame | history
t/op/die_unwind.t [new file with mode: 0644] blob
Unnamed repository; edit this file 'description' to name the repository.