[packages/pilot-link] correct types in perl bindings

[atler]

commit 28e110a2ac754c5fd24d7e557999854a4e3a29fa
Author: Jan Palus <atler at pld-linux.org>
Date:   Mon Aug 4 13:55:25 2025 +0200

    correct types in perl bindings

 pilot-link.spec |  2 ++
 types.patch     | 24 ++++++++++++++++++++++++
 2 files changed, 26 insertions(+)
---
diff --git a/pilot-link.spec b/pilot-link.spec
index 679971b..fa60c3e 100644
--- a/pilot-link.spec
+++ b/pilot-link.spec
@@ -26,6 +26,7 @@ Patch3:		%{name}-libpng.patch
 Patch4:		%{name}-format.patch
 # from fc
 Patch5:		pilot-link-0.12.5-redefinePerlsymbols.patch
+Patch6:		types.patch
 URL:		http://www.pilot-link.org/
 BuildRequires:	autoconf >= 2.53
 BuildRequires:	automake
@@ -205,6 +206,7 @@ Wiązanie Pythona do biblioteki pilot-link.
 %patch -P3 -p1
 %patch -P4 -p1
 %patch -P5 -p1
+%patch -P6 -p1
 
 %if "%{_lib}" != "lib"
 %{__sed} -i -e 's#/lib\>#/%{_lib}#g' m4/python.m4
diff --git a/types.patch b/types.patch
new file mode 100644
index 0000000..bb42ef8
--- /dev/null
+++ b/types.patch
@@ -0,0 +1,24 @@
+--- pilot-link-0.12.5/bindings/Perl/Pilot.xs.orig	2025-08-04 13:38:25.051586394 +0200
++++ pilot-link-0.12.5/bindings/Perl/Pilot.xs	2025-08-04 13:51:49.459786137 +0200
+@@ -2574,16 +2574,18 @@
+ 	OUTPUT:
+ 	RETVAL
+ 
+-int
++SV*
+ getRecords(self)
+ 	PDA::Pilot::DLP::DB *self
+ 	CODE:
+ 	{
+-		int result = dlp_ReadOpenDBInfo(self->socket, self->handle, &RETVAL);
++		int count;
++		int result = dlp_ReadOpenDBInfo(self->socket, self->handle, &count);
+ 		if (result < 0) {
+ 			RETVAL = newSVsv(&PL_sv_undef);
+ 			self->errnop = result;
+-		}
++		} else
++			RETVAL = newSViv(count);
+ 	}
+ 	OUTPUT:
+ 	RETVAL
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/pilot-link.git/commitdiff/28e110a2ac754c5fd24d7e557999854a4e3a29fa