diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-10-11 10:26:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-10-11 10:26:35 (GMT) |
| commit | 31d188239f62698436ce4cfe0f4cbb18d0df2bfb (patch) | |
| tree | 009db31a5963d62836932b6319b6bdd75ed5d050 | |
| parent | 976d7cab2f1f6fd05dd1972278c8f19ccdf96b23 (diff) | |
| download | tcl-31d188239f62698436ce4cfe0f4cbb18d0df2bfb.zip tcl-31d188239f62698436ce4cfe0f4cbb18d0df2bfb.tar.gz tcl-31d188239f62698436ce4cfe0f4cbb18d0df2bfb.tar.bz2 | |
Even though TCLOO_PATCHLEVEL is equal to TCLOO_VERSION, using "patchlevel" is more appropriate in those two places.
| -rw-r--r-- | generic/tclOO.c | 2 | ||||
| -rw-r--r-- | tests/oo.test | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index cb22de6..529640f 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -271,7 +271,7 @@ TclOOInit( return TCL_ERROR; } - return Tcl_PkgProvideEx(interp, "TclOO", TCLOO_VERSION, + return Tcl_PkgProvideEx(interp, "TclOO", TCLOO_PATCHLEVEL, (ClientData) &tclOOStubs); } diff --git a/tests/oo.test b/tests/oo.test index 37bbadb..d63e931 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -101,7 +101,7 @@ test oo-0.8 {leak in variable management} -setup { test oo-0.9 {various types of presence of the TclOO package} { list [lsearch -nocase -all -inline [package names] tcloo] \ [package present TclOO] [package versions TclOO] -} [list TclOO $::oo::version $::oo::version] +} [list TclOO $::oo::patchlevel $::oo::patchlevel] test oo-1.1 {basic test of OO functionality: no classes} { set result {} |