+ is($@, "ok\n", "no indirect: $_");
+ s/Hlagh/Dongs/g;
+ {
+ use indirect;
+ eval "die qq{ok\\n}; $_";
+ }
+ is($@, "ok\n", "use indirect, defined: $_");
+ {
+ no indirect;
+ eval "die qq{ok\\n}; $_";
+ }
+ is($@, "ok\n", "no indirect, defined: $_");