mirror of
git://slackware.nl/current.git
synced 2024-09-29 05:37:28 +02:00
abc3e67678
a/less-654-x86_64-1.txz: Upgraded. d/ninja-1.12.1-x86_64-1.txz: Upgraded. n/whois-5.5.23-x86_64-1.txz: Upgraded. Updated the .sc, .********* (.xn--yfro4i67o, Singapore) and .********************************* (.xn--clchc0ea0b2g2a9gcd, Singapore) TLD servers. extra/bittornado/bittornado-0.3.18-noarch-3.txz: Removed. Obsolete and based on python2.
28 lines
677 B
Diff
28 lines
677 B
Diff
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->socket, self->handle, &RETVAL);
|
|
+ int retval;
|
|
+ int result = dlp_ReadOpenDBInfo(self->socket, self->handle, &retval);
|
|
if (result < 0) {
|
|
RETVAL = newSVsv(&PL_sv_undef);
|
|
self->errnop = result;
|
|
- }
|
|
+ } else
|
|
+ RETVAL = newSViv(retval);
|
|
}
|
|
OUTPUT:
|
|
RETVAL
|