Protect $@ in the regression test for RT #50570
[perl/modules/indirect.git] / t / lib / indirect / TestRequired4 / a0.pm
index 583f88f..1c3209b 100644 (file)
@@ -2,6 +2,7 @@ package indirect::TestRequired4::a0;
 no indirect ":fatal";
 use indirect::TestRequired4::b0;
 sub error {
+ local $@;
  indirect::TestRequired4::b0->get;
  return $@;
 }