diff options
| author | Graham Barr <gbarr@pobox.com> | 1998-07-12 14:57:47 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-13 02:44:30 +0000 |
| commit | 8782bef2aa2ca158fdd0d7436e68ae3ac2b01ff7 (patch) | |
| tree | 5014b290517414faa6839abd622ed81e17116829 /regcomp.c | |
| parent | c70c8a0a59777ed7fb7075471185210bc2169b49 (diff) | |
| download | perl-8782bef2aa2ca158fdd0d7436e68ae3ac2b01ff7.tar.gz | |
added patch, tweaked PERL_OBJECT things
Message-Id: <19980712195747.C493@pobox.com>
Subject: [ PATCH perl5.004_72] patch to add qr//
p4raw-id: //depot/perl@1461
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -799,8 +799,8 @@ pregcomp(char *exp, char *xend, PMOP *pm) return(NULL); /* Dig out information for optimizations. */ + r->reganch = pm->op_pmflags & PMf_COMPILETIME; pm->op_pmflags = regflags; - r->reganch = 0; r->regstclass = NULL; r->naughty = regnaughty >= 10; /* Probably an expensive pattern. */ scan = r->program + 1; /* First BRANCH. */ |