projects
/
perl
/
modules
/
indirect.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
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;