Protect $@ in the regression test for RT #50570
authorVincent Pit <vince@profvince.com>
Sun, 18 Apr 2010 16:09:45 +0000 (18:09 +0200)
committerVincent Pit <vince@profvince.com>
Sun, 18 Apr 2010 16:09:45 +0000 (18:09 +0200)
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 $@;
 }