X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F21-bad.t;h=63516f562f1622f407322e62aba044ac3592b0a4;hp=eea745eb863c64e8301c610f528aeabc740e1549;hb=0cc2d6ec622415ec5a39849d0837097c69c73eb5;hpb=ff3c9826e97293d24f37e6c9ab6656f5803b4cd6

diff --git a/t/21-bad.t b/t/21-bad.t
index eea745e..63516f5 100644
--- a/t/21-bad.t
+++ b/t/21-bad.t
@@ -42,7 +42,7 @@ sub try {
 
  @warns = ();
  {
-  local $SIG{__WARN__} = sub { push @warns, join(' ', @_) };
+  local $SIG{__WARN__} = sub { push @warns, @_ };
   eval $code;
  }
 }