From: Vincent Pit <vince@profvince.com>
Date: Sun, 18 Apr 2010 16:09:45 +0000 (+0200)
Subject: Protect $@ in the regression test for RT #50570
X-Git-Tag: v0.20~3
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=70c031d6dea1becbc2bdba6e26b57366ea6dc607;p=perl%2Fmodules%2Findirect.git

Protect $@ in the regression test for RT #50570
---

diff --git a/t/lib/indirect/TestRequired4/a0.pm b/t/lib/indirect/TestRequired4/a0.pm
index 583f88f..1c3209b 100644
--- a/t/lib/indirect/TestRequired4/a0.pm
+++ b/t/lib/indirect/TestRequired4/a0.pm
@@ -2,6 +2,7 @@ package indirect::TestRequired4::a0;
 no indirect ":fatal";
 use indirect::TestRequired4::b0;
 sub error {
+ local $@;
  indirect::TestRequired4::b0->get;
  return $@;
 }