diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-11-09 18:09:34 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-13 14:00:41 +0000 |
| commit | 5d458dd8ef53373c3f90d568f6668084b0ccbc62 (patch) | |
| tree | 583b05ace4ad9918b5d57a722b502e22e4d15eae /regcomp.pl | |
| parent | cdfeb707a2638190212953e4a52d8460de223429 (diff) | |
| download | perl-5d458dd8ef53373c3f90d568f6668084b0ccbc62.tar.gz | |
Re: [PATCH] New regex syntax omnibus
Message-ID: <9b18b3110611090809l667860c9t6c27453d7c86a21e@mail.gmail.com>
p4raw-id: //depot/perl@29260
Diffstat (limited to 'regcomp.pl')
| -rw-r--r-- | regcomp.pl | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/regcomp.pl b/regcomp.pl index 700268d83d..14c2eb7be2 100644 --- a/regcomp.pl +++ b/regcomp.pl @@ -55,12 +55,9 @@ while (<DESC>) { } } -my ($width,$rwidth,$twidth)=(0,0,0); -for (1..@name) { - $width=length($name[$_]) if $name[$_] and $width<length($name[$_]); - $twidth=length($type[$_]) if $type[$_] and $twidth<length($type[$_]); - $rwidth=$width if $_ == $lastregop; -} +# use fixed width to keep the diffs between regcomp.pl recompiles +# as small as possible. +my ($width,$rwidth,$twidth)=(22,12,9); $lastregop ||= $ind; my $tot = $ind; close DESC; |