Simplify the warning handler in t/21-bad.t

[perl/modules/indirect.git] / t / 21-bad.t

diff --git a/t/21-bad.t b/t/21-bad.t
index eea745eb863c64e8301c610f528aeabc740e1549..63516f562f1622f407322e62aba044ac3592b0a4 100644 (file)
--- 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;
  }
 }