avoid reliance on croak() prototype

p4raw-id: //depot/perl@18078

diff --git a/lib/warnings.pm b/lib/warnings.pm
index 8aa7748..0400a17 100644 (file)
--- a/lib/warnings.pm
+++ b/lib/warnings.pm
@@ -291,7 +291,7 @@ $All = "" ; vec($All, $Offsets{'all'}, 2) = 3 ;
 sub Croaker
 {
     delete $Carp::CarpInternal{'warnings'};
-    croak @_ ;
+    croak(@_);
 }
 
 sub bits