diff options
author | dgp <dgp@users.sourceforge.net> | 2012-12-07 18:08:48 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2012-12-07 18:08:48 (GMT) |
commit | b54c784f2026449402d6dd3749f3795880d7e38c (patch) | |
tree | f6bcdc9f1c8d5b4bf313bde48eba6afaf77294e5 /generic/tclPkg.c | |
parent | c46c79caa21b2d9c1c990e418d10329254651a51 (diff) | |
parent | 5af462da6620ee759e850ec2fb0164eedc96cc53 (diff) | |
download | tcl-b54c784f2026449402d6dd3749f3795880d7e38c.zip tcl-b54c784f2026449402d6dd3749f3795880d7e38c.tar.gz tcl-b54c784f2026449402d6dd3749f3795880d7e38c.tar.bz2 |
3593703 Don't crash on bad input to Tcl_PkgRequire*().
Diffstat (limited to 'generic/tclPkg.c')
-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 9b6e942..5b09ddb 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -356,6 +356,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 |