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 583f88f..1c3209b 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 $@;
 }