From 3d33b3e38c6ebc44f7a92b552b886747008c4253 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Thu, 24 May 2012 11:18:03 -0600 Subject: [PATCH] handy.h: Fix definition of isOCTAL_A() Commit c2da0b36ccf7393a329af732fac4153ddf6ab42e changed this macro, and created a syntax error. But it turns out that there were no current calls to it in the Perl core. When I tried adding one, it showed the failure. --- handy.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/handy.h b/handy.h index 3eb8e51..281920b 100644 --- a/handy.h +++ b/handy.h @@ -593,7 +593,7 @@ patched there. The file as of this writing is cpan/Devel-PPPort/parts/inc/misc /* The lower 3 bits in both the ASCII and EBCDIC representations of '0' are 0, * and the 8 possible permutations of those bits exactly comprise the 8 octal * digits */ -#define isOCTAL_A(c) cBOOL(FITS_IN_8_BITS(c) && (0xF8 & (c)) eq '0') +#define isOCTAL_A(c) cBOOL(FITS_IN_8_BITS(c) && (0xF8 & (c)) == '0') /* ASCII range only */ -- 2.7.4