Description of Problem:

gcc -c -I../../include -D_REENTRANT -fno-strict-aliasing -I/usr/local/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2 -march=i686 -mcpu=i686  
-DVERSION=\"0.1\" -DXS_VERSION=\"0.1\" -fPIC
-I/usr/lib/perl5/5.6.1/i686-linux-thread-multi/CORE -DPERL_POLLUTE Pilot.c
In file included from Pilot.xs:32:
../../include/pi-todo.h:29: parse error before `('
../../include/pi-todo.h:29: warning: no semicolon at end of struct or union
../../include/pi-todo.h:31: parse error before `}'
In file included from Pilot.xs:33:
../../include/pi-mail.h:34: parse error before `('
../../include/pi-mail.h:34: warning: no semicolon at end of struct or union
../../include/pi-mail.h:39: parse error before `}'
Pilot.xs: In function `XS_PDA__Pilot__ToDo_UnpackAppBlock':
Pilot.xs:1208: storage size of `a' isn't known
Pilot.xs:1229: parse error before `('
Pilot.xs: In function `XS_PDA__Pilot__ToDo_PackAppBlock':
Pilot.xs:1247: storage size of `a' isn't known
Pilot.xs:1258: parse error before `('
Pilot.xs: In function `XS_PDA__Pilot__Mail_UnpackAppBlock':
Pilot.xs:2029: storage size of `a' isn't known
Pilot.xs:2052: parse error before `('
Pilot.xs: In function `XS_PDA__Pilot__Mail_PackAppBlock':                  
Pilot.xs:2069: storage size of `a' isn't known
Pilot.xs:2083: parse error before `('        

Version-Release number of selected component (if applicable):
perl-5.6.1-27, pilot-link-0.9.5-12, gcc-2.96-102

Workaround:
--- pilot-link.0.9.5/tools/Perl5/Pilot.xs.orig	Tue Feb 12 14:06:05 2002
+++ pilot-link.0.9.5/tools/Perl5/Pilot.xs	Tue Feb 12 14:17:33 2002
@@ -23,6 +23,11 @@
 #include "XSUB.h"
 #include "patchlevel.h"
 
+/* Work around a bit of Perl Pollution */
+#ifdef dirty
+#undef dirty
+#endif
+
 #include "pi-macros.h"
 #include "pi-file.h"
 #include "pi-datebook.h"