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