<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">Fix return types for PDA::Pilot::getRecords in the Perl bindings.

diff --git a/bindings/Perl/Pilot.xs b/bindings/Perl/Pilot.xs
index ef6865b710557fe8..424a24e64df8d2ae 100644
--- a/bindings/Perl/Pilot.xs
+++ b/bindings/Perl/Pilot.xs
@@ -2542,16 +2542,18 @@ resetNext(self)
 	OUTPUT:
 	RETVAL
 
-int
+SV *
 getRecords(self)
 	PDA::Pilot::DLP::DB *self
 	CODE:
 	{
-		int result = dlp_ReadOpenDBInfo(self-&gt;socket, self-&gt;handle, &amp;RETVAL);
+		int retval;
+		int result = dlp_ReadOpenDBInfo(self-&gt;socket, self-&gt;handle, &amp;retval);
 		if (result &lt; 0) {
 			RETVAL = newSVsv(&amp;PL_sv_undef);
 			self-&gt;errnop = result;
-		}
+		} else
+			RETVAL = newSViv(retval);
 	}
 	OUTPUT:
 	RETVAL
</pre></body></html>