pkgsrc/comms/pilotmgr/patches/patch-aa
magick e8a7c0b7f7 Update PilotManager to 1.107.2nb1
Changes are:
- Apply a patch posted on the homepage to avoid problems when
  backing up PalmOS3.5 devices
- Make PKGNAME dewey conform
2002-03-23 15:28:58 +00:00

74 lines
1.7 KiB
Text

$NetBSD: patch-aa,v 1.4 2002/03/23 15:29:00 magick Exp $
--- PilotMgr.pm.orig Wed Mar 24 23:59:59 1999
+++ PilotMgr.pm
@@ -604,14 +604,18 @@
my ($image);
my (@TTYMENU) =
- ("/dev/ttya", [],
- "/dev/ttyb", [],
- "/dev/cua/a", [],
- "/dev/cua/b", [],
- "/dev/cua0", [],
- "/dev/cua1", [],
- "/dev/cua2", [],
- "/dev/cua3", [],
+ ("/dev/tty00", [],
+ "/dev/tty01", [],
+ "/dev/tty02", [],
+ "/dev/tty03", [],
+ "/dev/ttyA0", [],
+ "/dev/ttyA1", [],
+ "/dev/ttyB0", [],
+ "/dev/ttyB1", [],
+ "/dev/ttyC0", [],
+ "/dev/ttyC1", [],
+ "/dev/ttyD0", [],
+ "/dev/ttyD1", [],
"/dev/pilot", [],
"Other...", []);
@@ -1586,7 +1590,7 @@
do "$RCFILE";
}
- $PREFS->{'gPort'} = '/dev/ttya'
+ $PREFS->{'gPort'} = '/dev/pilot'
unless (exists $PREFS->{'gPort'});
$PREFS->{'gRate'} = '9600'
unless (exists $PREFS->{'gRate'});
@@ -2636,7 +2640,7 @@
$mon++;
return sprintf("%02d/%02d/%02d %2d:%02d:%02d",
- $mon, $mday, $year, $hour, $min, $sec);
+ $mon, $mday, 1900 + $year, $hour, $min, $sec);
}
sub loadDBList
@@ -2656,14 +2660,17 @@
$count_max = 0;
}
- do
- {
- status("Refreshing Database List", int(100 * $count++ / $count_max))
- if ($count_max);
- push(@$result, $dlp->getDBInfo($i,1,0));
- $i = $result->[-1]->{"index"}+1;
+ my $rec;
+ eval { do
+ {
+ status("Refreshing Database List", int(100 * $count++ / $count_max))
+ if ($count_max);
+ $rec = $dlp->getDBInfo($i,1,0);
+ push(@$result, $rec) if (exists $rec->{"name"} and $rec->{"name"});
+ $i = $rec->{"index"}+1;
}
- while ($result->[-1]->{"more"});
+ while ($rec->{"more"}); };
+
fullStatus("Pilot Manager", "Refreshing Database List", 100);