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

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;
  }
 }