diff options
| author | Michael Cartmell <unknown> | 2008-07-01 22:17:58 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-11-02 18:31:19 +0000 |
| commit | 8fa23287293bbec887dca6d7e006e50e1a445bb2 (patch) | |
| tree | 196f2c3d2f263c4e3a86b53da3101db4122b0aaf /regcomp.c | |
| parent | 618078e967a6042b7f62ba9589c448bf625a3bed (diff) | |
| download | perl-8fa23287293bbec887dca6d7e006e50e1a445bb2.tar.gz | |
[perl #56526] m/a{1,0}/ compiles but doesn't match a literal string
From: Michael Cartmell (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-27577-1215001078-1211.56526-75-0@perl.org>
p4raw-id: //depot/perl@34697
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -6452,7 +6452,7 @@ S_regpiece(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) *flagp = WORST; if (max > 0) *flagp |= HASWIDTH; - if (max && max < min) + if (max < min) vFAIL("Can't do {n,m} with n > m"); if (!SIZE_ONLY) { ARG1_SET(ret, (U16)min); |