]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Simplify the warning handler in t/21-bad.t
authorVincent Pit <vince@profvince.com>
Tue, 14 Jul 2009 14:25:00 +0000 (16:25 +0200)
committerVincent Pit <vince@profvince.com>
Tue, 14 Jul 2009 14:25:00 +0000 (16:25 +0200)
t/21-bad.t

index eea745eb863c64e8301c610f528aeabc740e1549..63516f562f1622f407322e62aba044ac3592b0a4 100644 (file)
@@ -42,7 +42,7 @@ sub try {
 
  @warns = ();
  {
-  local $SIG{__WARN__} = sub { push @warns, join(' ', @_) };
+  local $SIG{__WARN__} = sub { push @warns, @_ };
   eval $code;
  }
 }