This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
do $file; won't propagate errors from die, as do is an implicit eval.
authorNicholas Clark <nick@ccl4.org>
Mon, 8 Jan 2007 21:20:26 +0000 (21:20 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 8 Jan 2007 21:20:26 +0000 (21:20 +0000)
commite81465beff59e6c9907613fe00ebce59d81fb1e8
tree4c6010205cc62e3f79dff3aa7dc7ac005ccccab8
parent3236f110cb098d9081961e6c9f4585ecaf729cc5
do $file; won't propagate errors from die, as do is an implicit eval.
So need to propagate errors with $@.

p4raw-id: //depot/perl@29723
27 files changed:
ext/DynaLoader/hints/gnukfreebsd.pl
ext/DynaLoader/hints/gnuknetbsd.pl
ext/NDBM_File/hints/gnukfreebsd.pl
ext/NDBM_File/hints/gnuknetbsd.pl
ext/ODBM_File/hints/gnukfreebsd.pl
ext/ODBM_File/hints/gnuknetbsd.pl
ext/POSIX/hints/gnukfreebsd.pl
ext/POSIX/hints/gnuknetbsd.pl
ext/Storable/hints/gnukfreebsd.pl
ext/Storable/hints/gnuknetbsd.pl
lib/perl5db.pl
lib/utf8_heavy.pl
symbian/config.pl
symbian/makesis.pl
symbian/xsbuild.pl
t/comp/require.t
t/op/caller.t
t/op/do.t
t/op/inccode-tie.t
t/op/regexp_noamp.t
t/op/regexp_notrie.t
t/op/regexp_qr.t
t/op/regexp_qr_embed.t
t/op/regexp_trielist.t
t/op/threads.t
t/uni/case.pl
win32/ce-helpers/makedist.pl