diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-04-07 00:00:00 +0000 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-09 00:00:00 +0000 |
| commit | 51aa1f50381e5da72a88a12f8d8c09a5fc718cf7 (patch) | |
| tree | 7fb88dfaf2b414841a51d4c92cfd4a69db88a15d | |
| parent | ce3cb50e8bc7477dba3b69b4ae0f20fe0bdb6dff (diff) | |
| download | perl-51aa1f50381e5da72a88a12f8d8c09a5fc718cf7.tar.gz | |
Fix C< $x=''; pos($x)=0; $x=~/\G$/ >
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -827,7 +827,7 @@ PP(pp_match) play_it_again: if (global && rx->startp[0]) { t = s = rx->endp[0]; - if (s >= strend) + if ((s + rx->minlen) > strend) goto nope; if (update_minmatch++) minmatch = (s == rx->startp[0]); |