diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-07-07 10:10:30 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-07-24 21:13:47 -0600 |
| commit | 3e6d27d5b1eec9b28b111dffbfde7481fd83d347 (patch) | |
| tree | 851eed67a02005f1fc87f920cc01b66379d1b2be /ext | |
| parent | 86dc2bf573b880d9a9cb80e85148cf3540e08da0 (diff) | |
| download | perl-3e6d27d5b1eec9b28b111dffbfde7481fd83d347.tar.gz | |
Optimize a single character [class] into EXACTish
Things like /[s]/ or /[s]/i can be optimized as if they did not have the
brackets, /s/ or /s/i.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/re/t/regop.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/re/t/regop.t b/ext/re/t/regop.t index 27d3479c97..a180756f8f 100644 --- a/ext/re/t/regop.t +++ b/ext/re/t/regop.t @@ -241,21 +241,21 @@ floating ""$ at 3..4 (checking floating) #Matching stclass EXACTF <.> against ".exe" --- #Compiling REx "[q]" -#size 12 nodes Got 100 bytes for offset annotations. +#size 3 nodes Got 28 bytes for offset annotations. #first at 1 #Final program: # 1: EXACT <q>(3) # 3: END(0) #anchored "q" at 0 (checking anchored isall) minlen 1 -#Offsets: [12] +#Offsets: [3] # 1:1[3] 3:4[0] #Guessing start of match, REx "[q]" against "q"... #Found anchored substr "q" at offset 0... #Guessed: match at offset 0 #%MATCHED% #Freeing REx: "[q]" -Got 100 bytes for offset annotations. -Offsets: [12] +Got 28 bytes for offset annotations. +Offsets: [3] 1:1[3] 3:4[0] %MATCHED% Freeing REx: "[q]" |