X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F22-bad-fatal.t;h=64348d91cc0384e91add4ac53f3fc9fc8360d91f;hp=6fd910a4a6c3d1d5e87360c39723d0363c3b8130;hb=c579771bace4977e6f2c26a5e5e29740a1aa4553;hpb=3244106ca331b0d58c903b449f3c26af8f2d2d1e

diff --git a/t/22-bad-fatal.t b/t/22-bad-fatal.t
index 6fd910a..64348d9 100644
--- a/t/22-bad-fatal.t
+++ b/t/22-bad-fatal.t
@@ -21,5 +21,5 @@ use IPC::Cmd qw/run/;
           't/data/bad.d'
    ];
 
-$stderr = join "\n", @$stderr if ref $stderr eq 'ARRAY';
+$stderr = join '', @$stderr;
 ok(!$success && $err_code && $stderr =~ /^Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"Hlagh1"/mg, 'croak when :fatal is specified');