diff options
Diffstat (limited to 'contrib/perl5/ext/SDBM_File/sdbm/pair.c')
| -rw-r--r-- | contrib/perl5/ext/SDBM_File/sdbm/pair.c | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/contrib/perl5/ext/SDBM_File/sdbm/pair.c b/contrib/perl5/ext/SDBM_File/sdbm/pair.c index a9a805a4aa30..4f0fde230272 100644 --- a/contrib/perl5/ext/SDBM_File/sdbm/pair.c +++ b/contrib/perl5/ext/SDBM_File/sdbm/pair.c @@ -8,7 +8,11 @@ */ #include "config.h" -#include "EXTERN.h" +#ifdef __CYGWIN__ +# define EXTCONST extern const +#else +# include "EXTERN.h" +#endif #include "sdbm.h" #include "tune.h" #include "pair.h" @@ -102,6 +106,17 @@ getpair(char *pag, datum key) return val; } +int +exipair(char *pag, datum key) +{ + register short *ino = (short *) pag; + + if (ino[0] == 0) + return 0; + + return (seepair(pag, ino[0], key.dptr, key.dsize) != 0); +} + #ifdef SEEDUPS int duppair(char *pag, datum key) |