From 975a06f7f899d1dd89d8a66defc0b3ee41013d1f Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 16 Sep 2014 16:26:36 -0600 Subject: [PATCH] regcomp.sym: ANYOF nodes have an argument Plus a bitmap, but they always have an argument besides, contrary to what was specified here. Future commits rely on this, whereas heretofore this error was harmless. --- pod/perldebguts.pod | 2 +- regcomp.sym | 2 +- regnodes.h | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pod/perldebguts.pod b/pod/perldebguts.pod index 54644d7..814949d 100644 --- a/pod/perldebguts.pod +++ b/pod/perldebguts.pod @@ -591,7 +591,7 @@ will be lost. REG_ANY no Match any one character (except newline). SANY no Match any one character. CANY no Match any one byte. - ANYOF sv Match character in (or not in) this class, + ANYOF sv 1 Match character in (or not in) this class, single char match only # POSIX Character Classes: diff --git a/regcomp.sym b/regcomp.sym index 6908712..9301992 100644 --- a/regcomp.sym +++ b/regcomp.sym @@ -57,7 +57,7 @@ NBOUNDA NBOUND, no ; Match "" at any word non-boundary using ASCI REG_ANY REG_ANY, no 0 S ; Match any one character (except newline). SANY REG_ANY, no 0 S ; Match any one character. CANY REG_ANY, no 0 S ; Match any one byte. -ANYOF ANYOF, sv 0 S ; Match character in (or not in) this class, single char match only +ANYOF ANYOF, sv 1 S ; Match character in (or not in) this class, single char match only #* POSIX Character Classes: # Order of the below is important. See ordering comment above. diff --git a/regnodes.h b/regnodes.h index ccec4d6..3feb312 100644 --- a/regnodes.h +++ b/regnodes.h @@ -310,7 +310,7 @@ static const U8 regarglen[] = { 0, /* REG_ANY */ 0, /* SANY */ 0, /* CANY */ - 0, /* ANYOF */ + EXTRA_SIZE(struct regnode_1), /* ANYOF */ 0, /* POSIXD */ 0, /* POSIXL */ 0, /* POSIXU */ -- 1.8.3.1