This distribution has been tested as part of the cpan-testers
effort to test as many new uploads to CPAN as possible. See
http://testers.cpan.org/
Please cc any replies to [EMAIL PROTECTED] to keep other
test volunteers informed and to prevent any duplicate effort.
--
This module does not compile with current perls. Here's a patch to fix this
problem:
diff -up '../../build/Tcl/Tcl.xs' 'Tcl.xs'
Index: ./Tcl.xs
--- ./Tcl.xs Thu Sep 18 17:51:53 1997
+++ ./Tcl.xs Tue Feb 25 23:37:22 2003
@@ -50,7 +50,7 @@ char **argv;
rc = SvOK(sv) ? TCL_OK : TCL_ERROR;
if (rc == TCL_OK)
- Tcl_SetResult(interp, SvPV(sv, na), TCL_VOLATILE);
+ Tcl_SetResult(interp, SvPV(sv, PL_na), TCL_VOLATILE);
/*
* If the routine returned undef, it indicates that it has done the
* SetResult itself and that we should return TCL_ERROR
@@ -134,7 +134,7 @@ Tcl_Eval(interp, script)
(void) sv_2mortal(SvREFCNT_inc(interpsv));
PUTBACK;
Tcl_ResetResult(interp);
- if (Tcl_Eval(interp, SvPV(sv_mortalcopy(script), na)) != TCL_OK)
+ if (Tcl_Eval(interp, SvPV(sv_mortalcopy(script), PL_na)) != TCL_OK)
croak(interp->result);
prepare_Tcl_result(interp, "Tcl::Eval");
SPAGAIN;
@@ -162,7 +162,7 @@ Tcl_GlobalEval(interp, script)
(void) sv_2mortal(SvREFCNT_inc(interpsv));
PUTBACK;
Tcl_ResetResult(interp);
- if (Tcl_GlobalEval(interp, SvPV(sv_mortalcopy(script), na)) != TCL_OK)
+ if (Tcl_GlobalEval(interp, SvPV(sv_mortalcopy(script), PL_na)) != TCL_OK)
croak(interp->result);
prepare_Tcl_result(interp, "Tcl::GlobalEval");
SPAGAIN;
@@ -222,7 +222,7 @@ Tcl_call(interp, proc, ...)
* its arguments more than once.
*/
proc = sv_mortalcopy(*++SP);
- argv[i] = SvPV(proc, na);
+ argv[i] = SvPV(proc, PL_na);
}
argv[items - 1] = (char *) 0;
if (!Tcl_GetCommandInfo(interp, argv[0], &cmdinfo))
@@ -247,7 +247,7 @@ Tcl_Init(interp)
croak(interp->result);
void
-Tcl_CreateCommand(interp,cmdName,cmdProc,clientData=&sv_undef,deleteProc=Nullsv)
+Tcl_CreateCommand(interp,cmdName,cmdProc,clientData=&PL_sv_undef,deleteProc=Nullsv)
Tcl interp
char * cmdName
SV * cmdProc
@@ -268,7 +268,7 @@ Tcl_CreateCommand(interp,cmdName,cmdProc
Tcl_CreateCommand(interp, cmdName, Tcl_PerlCallWrapper,
(ClientData) av, Tcl_PerlCallDeleteProc);
}
- ST(0) = &sv_yes;
+ ST(0) = &PL_sv_yes;
XSRETURN(1);
void
@@ -296,7 +296,7 @@ Tcl_AppendResult(interp, ...)
int i = NO_INIT
CODE:
for (i = 1; i <= items; i++)
- Tcl_AppendResult(interp, SvPV(ST(i), na), NULL);
+ Tcl_AppendResult(interp, SvPV(ST(i), PL_na), NULL);
RETVAL = interp->result;
OUTPUT:
RETVAL
@@ -403,7 +403,7 @@ FETCH(av, key = NULL)
croak("bad object passed to Tcl::Var::FETCH");
if (AvFILL(av) == 2)
flags = (int) SvIV(*av_fetch(av, 2, FALSE));
- varname1 = SvPV(*av_fetch(av, 1, FALSE), na);
+ varname1 = SvPV(*av_fetch(av, 1, FALSE), PL_na);
RETVAL = key ? Tcl_GetVar2(interp, varname1, key, flags)
: Tcl_GetVar(interp, varname1, flags);
OUTPUT:
@@ -435,7 +435,7 @@ STORE(av, str1, str2 = NULL)
croak("bad object passed to Tcl::Var::STORE");
if (AvFILL(av) == 2)
flags = (int) SvIV(*av_fetch(av, 2, FALSE));
- varname1 = SvPV(*av_fetch(av, 1, FALSE), na);
+ varname1 = SvPV(*av_fetch(av, 1, FALSE), PL_na);
/*
* hash stores have key str1 and value str2
* scalar ones just use value str1
With the patch I still get a segmentation fault with the last test in
t/eval.t. The Tk and Tcl versions are 8.4.
--
Summary of my perl5 (revision 5.0 version 8 subversion 0 patch 17639) configuration:
Platform:
osname=freebsd, osvers=4.6-stable, archname=i386-freebsd-64int
uname='freebsd vran.herceg.de 4.6-stable freebsd 4.6-stable #13: wed jun 26
00:09:05 cest 2002 [EMAIL PROTECTED]:usrlocalsrcfreebsd-4srcsyscompilevran i386 '
config_args='-Dprefix=/usr/perl5.8.0 -D usedevel=define -Dusemorebits -de'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=define use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing
-I/usr/local/include',
optimize='-O2 -mpentium -pipe',
cppflags='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing
-I/usr/local/include'
ccversion='', gccversion='2.95.4 20020320 [FreeBSD]', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags ='-Wl,-E -L/usr/local/lib'
libpth=/usr/lib /usr/local/lib
libs=-lgdbm -ldb -lm -lc -lcrypt -lutil
perllibs=-lm -lc -lcrypt -lutil
libc=, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
cccdlflags='-DPIC -fpic', lddlflags='-shared -L/usr/local/lib'
