Why does this code fail on AddressDB, but not on any of the other
DBs? If I put DatebookDB in there, it works fine. What gives? Any ideas?
I've tried this on 11 linux PCs ranging from perl-5.005_03 to perl4,
libc5, libc6, using a cold-reset PalmIII, PalmPro, and both with "real"
data in them. Same results. I tried several versions of pilot-link, and
several versions of Data::Dumper. No changes.
Any help is appreciated.
________________
----------------
#!/usr/bin/perl -w
use PDA::Pilot;
use Data::Dumper;
$socket = PDA::Pilot::openPort("/dev/ttyS0");
print "Now press the HotSync button\n";
$dlp = PDA::Pilot::accept($socket);
$db = $dlp->open("DatebookDB");
$i=0;
while(defined($r = $db->getRecord($i++))) {
print Dumper($r);
}
_______________
---------------
On a cleanly cold reset Palm (i.e. default Palm Address records), this is
the end of the output:
_______________
---------------
Please refer to the Worldwide Customer Support card for a complete
technical support contact list.',
'showPhone' => '0',
'id' => 12746753,
'category' => '0'
}, 'PDA::Pilot::AddressRecord' );
DLP 4: ReadRecordByIndex
Wrote: Handle: 1, Index: 2
Result: Error: Not found (-5)
Attempt to free unreferenced scalar.
Attempt to free unreferenced scalar.
Attempt to free unreferenced scalar.
Attempt to free unreferenced scalar.
Attempt to free unreferenced scalar.
Attempt to free unreferenced scalar.
Attempt to free unreferenced scalar.
Attempt to free unreferenced scalar.
DLP 4: CloseDB
Wrote: Handle: 1
Result: No error, 0 bytes
DLP 4: EndOfSync
Result: No error, 0 bytes
-----------------
