summaryrefslogtreecommitdiff
path: root/regcomp.pl
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2006-05-28 18:24:59 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-05-29 12:38:09 +0000
commit3dab1dad3c281a8a3802c3e053703d7cabca032a (patch)
tree9a20f0a4eea8eb9ed9e41c8633d91396a4399d62 /regcomp.pl
parentb4244ddc1fb37466a15a6ac6569133e40413ca6f (diff)
downloadperl-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.pl2
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';