Ensure clean callbacks with newest Tcl.pm

MANIFEST

@@ -8,6 +8,7 @@ t/mega.t
 t/mega-config.t
 t/nul-char.t
 t/tcl.t
+t/tcl-callback.t
 t/tk.t
 t/utf8.t
 tkx-ed

Makefile.PL

@@ -8,7 +8,7 @@ WriteMakefile(
     VERSION_FROM => 'Tkx.pm',
     ABSTRACT_FROM => 'Tkx.pm',
     PREREQ_PM => {
-	Tcl => 0.81,
+	Tcl => 0.98,
     },
     AUTHOR => 'Gisle Aas <gisle@activestate.com>',
     EXE_FILES => [qw(tkx-ed tkx-prove)],

t/tcl-callback.t

@@ -0,0 +1,27 @@
+#!perl -w
+
+use strict;
+use Test;
+
+plan tests => 7;
+
+use Tkx qw(set after);
+
+set("foo", sub {
+    ok @_, 2;
+    ok "@_", "a b c";
+});
+ok set("foo"), qr/^::perl::CODE\(0x/;
+Tkx::eval('[set foo] a {b c}');
+
+set("foo", [sub {
+    ok @_, 4;
+    ok "@_", "a b c d e f";
+}, "d", "e f"]);
+Tkx::eval('[set foo] a {b c}');
+
+set("foo", [sub {
+    ok @_, 6;
+    ok "@_", "2 3 a b c d";
+}, Tkx::Ev('[expr 1+1]', '[expr 1+2]'), "c", "d"]);
+Tkx::eval('eval [set foo] a b');