Hello, all! I hope this is correct fix, if not - please do not apply it. BCC explains about incorrect numeric operation for some reason ...
diff -u -r perl@14331-orig/hv.h perl@14331/hv.h --- perl@14331-orig/hv.h Thu Jan 3 08:54:58 2002 +++ perl@14331/hv.h Sun Jan 20 23:40:40 2002 @@ -145,7 +145,7 @@ #define XHvPLACEHOLDERS(xhv) ((xhv)->xhv_placeholders) /* the number of keys that exist() (i.e. excluding placeholers) */ -#define XHvUSEDKEYS(xhv) (XHvTOTALKEYS(xhv) - XHvPLACEHOLDERS(xhv)) +#define XHvUSEDKEYS(xhv) (XHvTOTALKEYS(xhv) - (int)XHvPLACEHOLDERS(xhv)) /* * HvKEYS gets the number of keys that actually exist(), and is provided Best wishes, Vadim.