Protect $@ in the regression test for RT #50570

[perl/modules/indirect.git] / t / lib / indirect / TestRequired4 / a0.pm

diff --git a/t/lib/indirect/TestRequired4/a0.pm b/t/lib/indirect/TestRequired4/a0.pm
index 583f88f0ef7be8fdbf9d9ec6e196db0d5f5bac4c..1c3209b5db35ce26cabde8231b38872b1645e5c5 100644 (file)
--- 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 $@;
 }