diff options
Diffstat (limited to 'source/l/pilot-link/pilot-link-c99.patch')
-rw-r--r-- | source/l/pilot-link/pilot-link-c99.patch | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/source/l/pilot-link/pilot-link-c99.patch b/source/l/pilot-link/pilot-link-c99.patch new file mode 100644 index 000000000..4e69bc866 --- /dev/null +++ b/source/l/pilot-link/pilot-link-c99.patch @@ -0,0 +1,28 @@ +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 |