This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix various compiler warnings from XS code
[perl5.git] / ext / SDBM_File / sdbm / pair.c
index 42b130d..993a361 100644 (file)
@@ -281,7 +281,7 @@ chkpage(char *pag)
        register int off;
        register short *ino = (short *) pag;
 
-       if ((n = ino[0]) < 0 || n > PBLKSIZ / sizeof(short))
+       if ((n = ino[0]) < 0 || n > (int)(PBLKSIZ / sizeof(short)))
                return 0;
 
        if (n > 0) {