projects
/
perl
/
modules
/
indirect.git
/ commitdiff
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
| inline |
side by side
(from parent 1:
87253a0
)
Protect $@ in the regression test for RT #50570
author
Vincent Pit <vince@profvince.com>
Sun, 18 Apr 2010 16:09:45 +0000 (18:09 +0200)
committer
Vincent Pit <vince@profvince.com>
Sun, 18 Apr 2010 16:09:45 +0000 (18:09 +0200)
t/lib/indirect/TestRequired4/a0.pm
patch
|
blob
|
history
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 $@;
}