Protect $@ in the regression test for RT #50570
[perl/modules/indirect.git] / t / lib / indirect / TestRequired4 / a0.pm
1 package indirect::TestRequired4::a0;
2 no indirect ":fatal";
3 use indirect::TestRequired4::b0;
4 sub error {
5  local $@;
6  indirect::TestRequired4::b0->get;
7  return $@;
8 }
9 1;