This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.pl: Calculate col widths for perldebguts
authorFather Chrysostomos <sprout@cpan.org>
Sun, 23 Dec 2012 07:26:37 +0000 (23:26 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 23 Dec 2012 07:26:37 +0000 (23:26 -0800)
I put this in originally, but somehow undid it by mistake before
committing 65aa4ca74a9c.

regen/regcomp.pl

index 843ef1b..5e1abfb 100644 (file)
@@ -348,7 +348,7 @@ eval <<EOD;
 format GuTS =
  ^*~~
  \$cmnt[\$_]
- ^<<<<<<<<<<<<<<<<< ^<<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
+ ^$name_fmt ^<<<<<<<<< ^$descr_fmt~~
  \$name[\$_], \$code,  \$rest[\$_]
 .
 EOD