diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-12-07 18:07:18 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-12-07 18:07:18 (GMT) |
| commit | 5af462da6620ee759e850ec2fb0164eedc96cc53 (patch) | |
| tree | 7c243f2e14a723a061ddd685238f4e9b357018fc | |
| parent | 49e8fc13b06dffcfb81b653907f7350e56da0c49 (diff) | |
| download | tcl-5af462da6620ee759e850ec2fb0164eedc96cc53.zip tcl-5af462da6620ee759e850ec2fb0164eedc96cc53.tar.gz tcl-5af462da6620ee759e850ec2fb0164eedc96cc53.tar.bz2 | |
3593703 Don't crash on bad input to Tcl_PkgRequire*().
| -rw-r--r-- | generic/tclPkg.c | 4 |
1 files changed, 4 insertions, 0 deletions
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 |