X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2Flib%2Findirect%2FTestRequired4%2Fa0.pm;h=1c3209b5db35ce26cabde8231b38872b1645e5c5;hp=583f88f0ef7be8fdbf9d9ec6e196db0d5f5bac4c;hb=70c031d6dea1becbc2bdba6e26b57366ea6dc607;hpb=87253a0488e3ed6c69d63a8526c99e5bb9c97e59

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 $@;
 }