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