adjust $DB::deep from 100 to 1000

[perl5.git] / universal.c

diff --git a/universal.c b/universal.c
index f583817..a72c072 100644 (file)
--- 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;
     {