diff options
author | Yves Orton <demerphq@gmail.com> | 2006-05-28 18:24:59 +0200 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-29 12:38:09 +0000 |
commit | 3dab1dad3c281a8a3802c3e053703d7cabca032a (patch) | |
tree | 9a20f0a4eea8eb9ed9e41c8633d91396a4399d62 /regcomp.pl | |
parent | b4244ddc1fb37466a15a6ac6569133e40413ca6f (diff) | |
download | perl-3dab1dad3c281a8a3802c3e053703d7cabca032a.tar.gz |
Re: [PATCH] More regex optimisations and debug enhancements (including Andys stuff too)
Message-ID: <9b18b3110605280724u54a9c53bn3b20692b6fe4f1c3@mail.gmail.com>
p4raw-id: //depot/perl@28325
Diffstat (limited to 'regcomp.pl')
-rw-r--r-- | regcomp.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/regcomp.pl b/regcomp.pl index e7a9d0588c..144cb0cf3c 100644 --- a/regcomp.pl +++ b/regcomp.pl @@ -16,6 +16,8 @@ while (<DESC>) { } close DESC; $tot = $ind; +die "Too many regexp opcodes! Maximum is 256, but there are $tot in file!" + if $tot>256; $tmp_h = 'tmp_reg.h'; |