This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
handy.h: Fix typo in little-used macro
authorKarl Williamson <khw@cpan.org>
Wed, 4 Dec 2019 20:46:35 +0000 (13:46 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 7 Dec 2019 22:50:38 +0000 (15:50 -0700)
This only affected an EBCDIC build where no other tools are around.
This is no longer really used.  It was used to bootstrap EBCDIC when
first porting to it (after the 5.8 series).

handy.h

diff --git a/handy.h b/handy.h
index bac1f83..f10136f 100644 (file)
--- a/handy.h
+++ b/handy.h
@@ -1540,7 +1540,7 @@ END_EXTERN_C
                           ||  (c) == '\f' || (c) == '\n' || (c) == '\r'     \
                           ||  (c) == '\t' || (c) == '\v'                    \
                           || inRANGE((c), 1, 3)     /* SOH, STX, ETX */     \
-                          ||  (c) == 7    /* U+7F DEL */                    \
+                          ||  (c) == 7F   /* U+7F DEL */                    \
                           || inRANGE((c), 0x0E, 0x13) /* SO SI DLE          \
                                                          DC[1-3] */         \
                           ||  (c) == 0x18 /* U+18 CAN */                    \