From 5d458dd8ef53373c3f90d568f6668084b0ccbc62 Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
Date: Thu, 9 Nov 2006 18:09:34 +0100
Subject: Re: [PATCH] New regex syntax omnibus Message-ID:
 <9b18b3110611090809l667860c9t6c27453d7c86a21e@mail.gmail.com>

p4raw-id: //depot/perl@29260
---
 regcomp.pl | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'regcomp.pl')

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;
-- 
cgit v1.2.1