Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Leap:15.3:Update
idzebra
idzebra-2.0.55-tcl-8.5-abuild.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File idzebra-2.0.55-tcl-8.5-abuild.patch of Package idzebra
Index: idzebra-2.0.55/index/mod_grs_regx.c =================================================================== --- idzebra-2.0.55.orig/index/mod_grs_regx.c +++ idzebra-2.0.55/index/mod_grs_regx.c @@ -1301,8 +1301,13 @@ static void execTcl (struct lexSpec *spe { const char *err = Tcl_GetVar(spec->tcl_interp, "errorInfo", 0); yaz_log(YLOG_FATAL, "Tcl error, line=%d, \"%s\"\n%s", - spec->tcl_interp->errorLine, +#if (TCL_MAJOR_VERSION >= 8 && TCL_MINOR_VERSION >= 5) + Tcl_GetErrorline(spec->tcl_interp), + Tcl_GetStringResult(spec->tcl_interp), +#else + spec->tcl_interp->errorline, spec->tcl_interp->result, +#endif err ? err : "[NO ERRORINFO]"); } }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
