diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1989-11-10 16:20:57 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1989-11-10 16:20:57 +0000 |
| commit | ae98613044a1084886d80b8283b25bad38cfd171 (patch) | |
| tree | 7dfe17f2ae5835a17db41a0bb4d7ef903d6ff3d9 /regexec.c | |
| parent | bf38876a182e0df9dd73362f56cf0ab8b43aa789 (diff) | |
| download | perl-ae98613044a1084886d80b8283b25bad38cfd171.tar.gz | |
perl 3.0 patch #4 Patch #2 continued
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -7,9 +7,12 @@ * blame Henry for some of the lack of readability. */ -/* $Header: regexec.c,v 3.0 89/10/18 15:22:53 lwall Locked $ +/* $Header: regexec.c,v 3.0.1.1 89/11/11 04:52:04 lwall Locked $ * * $Log: regexec.c,v $ + * Revision 3.0.1.1 89/11/11 04:52:04 lwall + * patch2: /\b$foo/ didn't work + * * Revision 3.0 89/10/18 15:22:53 lwall * 3.0 baseline * @@ -262,7 +265,7 @@ int safebase; /* no need to remember string in subbase */ } s++; } - if (tmp && regtry(prog,s)) + if ((minlen || tmp) && regtry(prog,s)) goto got_it; break; case NBOUND: @@ -282,7 +285,7 @@ int safebase; /* no need to remember string in subbase */ goto got_it; s++; } - if (!tmp && regtry(prog,s)) + if ((minlen || !tmp) && regtry(prog,s)) goto got_it; break; case ALNUM: |