diff options
| author | nijtmans <nijtmans> | 2010-03-27 22:47:04 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-03-27 22:47:04 (GMT) |
| commit | d6b47c13b9de8ed40d1c144b8a70ccec677a5231 (patch) | |
| tree | d65014decff2b760a5c13d4a872918187510515e /unix/dltest/pkge.c | |
| parent | 419d5645c272033992ce63a5c714a64436e9f189 (diff) | |
| download | tcl-d6b47c13b9de8ed40d1c144b8a70ccec677a5231.zip tcl-d6b47c13b9de8ed40d1c144b8a70ccec677a5231.tar.gz tcl-d6b47c13b9de8ed40d1c144b8a70ccec677a5231.tar.bz2 | |
Provide "lowest supported Tcl version" to
the Tcl_InitStubs functions in unix/dltest,
in stead of "current Tcl version"
Diffstat (limited to 'unix/dltest/pkge.c')
| -rw-r--r-- | unix/dltest/pkge.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/dltest/pkge.c b/unix/dltest/pkge.c index 145bbf5..3e93602 100644 --- a/unix/dltest/pkge.c +++ b/unix/dltest/pkge.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: pkge.c,v 1.12 2010/02/22 23:31:42 nijtmans Exp $ + * RCS: @(#) $Id: pkge.c,v 1.13 2010/03/27 22:47:04 nijtmans Exp $ */ #include "tcl.h" @@ -48,7 +48,7 @@ Pkge_Init( { static const char script[] = "if 44 {open non_existent}"; - if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) { + if (Tcl_InitStubs(interp, "8.1", 0) == NULL) { return TCL_ERROR; } return Tcl_Eval(interp, script); |