X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/22d874e2615631f6d150395ed856d7be7a9de5f2..7aeefbb3234c8cf563ba8065fec1b841ee1415ab:/universal.c?ds=sidebyside

diff --git a/universal.c b/universal.c
index f583817..a72c072 100644
--- a/universal.c
+++ b/universal.c
@@ -490,7 +490,7 @@ XS(XS_version_new)
 {
     dVAR;
     dXSARGS;
-    if (items > 3)
+    if (items > 3 || items < 1)
 	croak_xs_usage(cv, "class, version");
     SP -= items;
     {