openbsd/ports
1
0
Fork 0
mirror of https://github.com/openbsd/ports.git synced 2026-06-17 23:13:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

p5-Tk: fix previous: forgot to undo an experiment before commit

Browse Source
This commit is contained in:
tb
2026-05-21 21:55:54 +00:00
parent ba667a92a3
commit a8cfba4529
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
x11/p5-Tk/Makefile
+1 -1
View File
@@ -8,7 +8,7 @@ PKGNAME-main= p5-Tk-${VERSION}
PKGNAME-demo= p5-Tk-demo-${VERSION}
CATEGORIES= x11 devel
REVISION= 0
REVISION= 1
# GPL + custom
PERMIT_PACKAGE= Yes
x11/p5-Tk/patches/patch-objGlue_c
+4 -2
View File
@@ -23,13 +23,15 @@ Index: objGlue.c
#ifdef SvUTF8
# ifdef NEED_FIX_BUGGY_UTF8_STRING
if (!is_utf8_string(s,strlen(s)))
@@ -627,7 +635,8 @@ Tcl_GetByteArrayFromObj(Tcl_Obj * objPtr, int * length
@@ -627,7 +635,10 @@ Tcl_GetByteArrayFromObj(Tcl_Obj * objPtr, int * length
sv_utf8_downgrade(objPtr, 0);
if (lengthPtr)
{
- return (unsigned char *) SvPV(objPtr, *lengthPtr);
+ long length = *lengthPtr;
+ return (unsigned char *) SvPV(objPtr, length);
+ unsigned char *ret = SvPV(objPtr, length);
+ *lengthPtr = length;
+ return ret;
}
else
{