- eval "die qq{the code compiled but it shouldn't have\n}; no indirect; $_";
- like($@, expect('Hlagh'), "no indirect, spaces: $_");
+ eval "die qq{ok\\n}; $prefix; use indirect; $_";
+ is($@, "ok\n", "use indirect, spaces: $_");
+
+ eval "die qq{the code compiled but it shouldn't have\n}; $prefix; no indirect; $_";
+ like($@, expect('Hlagh'), "no indirect, spaces: $_");
+ }