[packages/perl-Tk-Zinc] - some conflicting type fixes, release 2

[qboosh]

commit 4ffa1e31b72125ad01f8e85f7f69164cf9dd0bf3
Author: Jakub Bogusz <qboosh at pld-linux.org>
Date:   Sun Sep 28 13:51:50 2025 +0200

    - some conflicting type fixes, release 2

 Tk-Zinc-types.patch | 30 ++++++++++++++++++++++++++++++
 perl-Tk-Zinc.spec   |  4 +++-
 2 files changed, 33 insertions(+), 1 deletion(-)
---
diff --git a/perl-Tk-Zinc.spec b/perl-Tk-Zinc.spec
index c83bfdb..8bcc4c2 100644
--- a/perl-Tk-Zinc.spec
+++ b/perl-Tk-Zinc.spec
@@ -8,11 +8,12 @@ Summary:	Tk::Zinc - another Canvas which proposes many new functions, some based
 Summary(pl.UTF-8):	Tk::Zinc - kolejna klasa Canvas z wieloma nowymi funkcjami, niektórymi opartymi na OpenGL
 Name:		perl-Tk-Zinc
 Version:	3.306
-Release:	1
+Release:	2
 License:	LGPL v2.1+
 Group:		Development/Languages/Perl
 Source0:	https://www.cpan.org/modules/by-module/Tk/%{pdir}-%{pnam}-%{version}.tar.gz
 # Source0-md5:	3c3e646795e7ab3d45bdeada4566aa09
+Patch0:		Tk-Zinc-types.patch
 URL:		https://metacpan.org/dist/Tk-Zinc
 BuildRequires:	OpenGL-devel
 BuildRequires:	OpenGL-GLU-devel
@@ -66,6 +67,7 @@ Programy demonstrujące funkcjonalność widżetów Tk::Zinc.
 
 %prep
 %setup -q -n %{pdir}-%{pnam}-%{version}
+%patch -P0 -p1
 
 %build
 %{__perl} Makefile.PL \
diff --git a/Tk-Zinc-types.patch b/Tk-Zinc-types.patch
new file mode 100644
index 0000000..be0b80f
--- /dev/null
+++ b/Tk-Zinc-types.patch
@@ -0,0 +1,30 @@
+--- Tk-Zinc-3.306/PostScript.c.orig	2020-11-25 20:23:17.000000000 +0100
++++ Tk-Zinc-3.306/PostScript.c	2025-09-28 13:36:02.724428041 +0200
+@@ -305,7 +305,7 @@ ZnPostScriptCmd(ZnWInfo        *wi,
+   ps_info.prolog = 1;
+   Tcl_InitHashTable(&ps_info.fontTable, TCL_STRING_KEYS);
+   result = Tk_ConfigureWidget(wi->interp, wi->win, config_specs,
+-                              argc-2, (CONST char **) argv+2,
++                              argc-2, argv+2,
+                               (char *) &ps_info,
+                               TK_CONFIG_ARGV_ONLY|TK_CONFIG_OBJS);
+   if (result != TCL_OK) {
+--- Tk-Zinc-3.306/tkZinc.c.orig	2020-11-25 20:23:17.000000000 +0100
++++ Tk-Zinc-3.306/tkZinc.c	2025-09-28 13:46:10.401208797 +0200
+@@ -8999,11 +8999,11 @@ InitZinc(Tcl_Interp *interp) {
+   ZnTesselator.tess = gluNewTess();
+   ZnTesselator.combine_list = NULL;
+         ZnTesselator.combine_length = 0;
+-  gluTessCallback(ZnTesselator.tess, GLU_TESS_BEGIN_DATA, ZnTessBegin);
+-  gluTessCallback(ZnTesselator.tess, GLU_TESS_VERTEX_DATA, ZnTessVertex);
+-  gluTessCallback(ZnTesselator.tess, GLU_TESS_END_DATA, ZnTessEnd);
+-  gluTessCallback(ZnTesselator.tess, GLU_TESS_COMBINE_DATA, ZnTessCombine);
+-  gluTessCallback(ZnTesselator.tess, GLU_TESS_ERROR_DATA, ZnTessError);
++  gluTessCallback(ZnTesselator.tess, GLU_TESS_BEGIN_DATA, (_GLUfuncptr) ZnTessBegin);
++  gluTessCallback(ZnTesselator.tess, GLU_TESS_VERTEX_DATA, (_GLUfuncptr) ZnTessVertex);
++  gluTessCallback(ZnTesselator.tess, GLU_TESS_END_DATA, (_GLUfuncptr) ZnTessEnd);
++  gluTessCallback(ZnTesselator.tess, GLU_TESS_COMBINE_DATA, (_GLUfuncptr) ZnTessCombine);
++  gluTessCallback(ZnTesselator.tess, GLU_TESS_ERROR_DATA, (_GLUfuncptr) ZnTessError);
+   gluTessNormal(ZnTesselator.tess, 0.0, 0.0, -1.0);
+ 
+   /*
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl-Tk-Zinc.git/commitdiff/4ffa1e31b72125ad01f8e85f7f69164cf9dd0bf3