Add a regression test for a bug that appeared while fixing RT #50570 but got re-fixed...

[perl/modules/indirect.git] / t / lib / indirect / TestRequired5 / a0.pm

diff --git a/t/lib/indirect/TestRequired5/a0.pm b/t/lib/indirect/TestRequired5/a0.pm
new file mode 100644 (file)
index 0000000..159d4d6
--- /dev/null
+++ b/t/lib/indirect/TestRequired5/a0.pm
@@ -0,0 +1,9 @@
+package indirect::TestRequired5::a0;
+no indirect ":fatal";
+use indirect::TestRequired5::b0;
+sub error {
+ local $@;
+ indirect::TestRequired5::b0->get;
+ return $@;
+}
+1;