projects
/
perl
/
modules
/
indirect.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
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 $@;
}