diff options
author | Karl Williamson <khw@cpan.org> | 2014-12-30 20:49:25 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2014-12-30 21:18:48 -0700 |
commit | 2f3cbe108ec853d7b2a6f7baace652b3fc6926e7 (patch) | |
tree | af341f2de997aa94ba74948be76f35b679ba469c /regen | |
parent | bdafd784ddf8cb8a42f22ebdd4e7424673d02f24 (diff) | |
download | perl-2f3cbe108ec853d7b2a6f7baace652b3fc6926e7.tar.gz |
warnings.pm: Fix too long verbatim lines
By not indentins verbatim text so much, we don't run over 79 columns.
Diffstat (limited to 'regen')
-rw-r--r-- | regen/warnings.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/regen/warnings.pl b/regen/warnings.pl index 949617fc68..a6b8c02ee8 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -295,7 +295,7 @@ sub mkOct if (@ARGV && $ARGV[0] eq "tree") { - print warningsTree($tree, " ") ; + print warningsTree($tree, " ") ; exit ; } @@ -475,7 +475,7 @@ print $pm '$LAST_BIT = ' . "$index ;\n" ; print $pm '$BYTES = ' . "$warn_size ;\n" ; while (<DATA>) { if ($_ eq "=for warnings.pl tree-goes-here\n") { - print $pm warningsTree($tree, " "); + print $pm warningsTree($tree, " "); next; } print $pm $_ ; |