From 6d6c732492789c16c16f822a7b3ae1421261b86d Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 7 Dec 2012 18:07:18 +0000
Subject: 3593703 Don't crash on bad input to Tcl_PkgRequire*().

---
 generic/tclPkg.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/generic/tclPkg.c b/generic/tclPkg.c
index aed80c0..b3396e6 100644
--- a/generic/tclPkg.c
+++ b/generic/tclPkg.c
@@ -353,6 +353,10 @@ PkgRequireCore(
     char *script, *pkgVersionI;
     Tcl_DString command;
 
+    if (TCL_OK != CheckAllRequirements(interp, reqc, reqv)) {
+	return NULL;
+    }
+
     /*
      * It can take up to three passes to find the package: one pass to run the
      * "package unknown" script, one to run the "package ifneeded" script for
-- 
cgit v0.12