Subject: | Changes between 0.17002 and 0.17003 break previously working code. |
Changes between 0.17002 and 0.17003 break previously working test in my
module (please see CPAN RT# 21798). I tracked the problem to the
following changes:
@@ -330,6 +330,7 @@
my $more = 0;
local($Error::THROWN);
my $ok = eval {
+ local $@ = $err;
if($wantarray) {
@{$result} = $code->($err,\$more);
}
@@ -364,6 +365,7 @@
my $code = $clauses->{'otherwise'};
my $more = 0;
my $ok = eval {
+ local $@ = $err;
if($wantarray) {
@{$result} = $code->($err,\$more);
}
I am not sure *why* this breaks the test, but it does. If you guys
could have a glance at it that'd be great.
Thanks,
- Dmitri.