warnings.pm: Fix too long verbatim lines

By not indentins verbatim text so much, we don't run over 79 columns.

diff --git a/lib/warnings.pm b/lib/warnings.pm
index 5f18b40..685c036 100644 (file)
--- a/lib/warnings.pm
+++ b/lib/warnings.pm
@@ -797,141 +797,141 @@ to be enabled/disabled in isolation.
 
 The current hierarchy is:
 
-    everything -+
-                |
-                +- all ---+
-                |         |
-                |         +- closure
-                |         |
-                |         +- deprecated
-                |         |
-                |         +- exiting
-                |         |
-                |         +- experimental --+
-                |         |                 |
-                |         |                 +- experimental::autoderef
-                |         |                 |
-                |         |                 +- experimental::lexical_subs
-                |         |                 |
-                |         |                 +- experimental::lexical_topic
-                |         |                 |
-                |         |                 +- experimental::postderef
-                |         |                 |
-                |         |                 +- experimental::refaliasing
-                |         |                 |
-                |         |                 +- experimental::regex_sets
-                |         |                 |
-                |         |                 +- experimental::signatures
-                |         |                 |
-                |         |                 +- experimental::smartmatch
-                |         |                 |
-                |         |                 +- experimental::win32_perlio
-                |         |
-                |         +- glob
-                |         |
-                |         +- imprecision
-                |         |
-                |         +- io ------------+
-                |         |                 |
-                |         |                 +- closed
-                |         |                 |
-                |         |                 +- exec
-                |         |                 |
-                |         |                 +- layer
-                |         |                 |
-                |         |                 +- newline
-                |         |                 |
-                |         |                 +- pipe
-                |         |                 |
-                |         |                 +- syscalls
-                |         |                 |
-                |         |                 +- unopened
-                |         |
-                |         +- locale
-                |         |
-                |         +- misc
-                |         |
-                |         +- missing
-                |         |
-                |         +- numeric
-                |         |
-                |         +- once
-                |         |
-                |         +- overflow
-                |         |
-                |         +- pack
-                |         |
-                |         +- portable
-                |         |
-                |         +- recursion
-                |         |
-                |         +- redefine
-                |         |
-                |         +- redundant
-                |         |
-                |         +- regexp
-                |         |
-                |         +- severe --------+
-                |         |                 |
-                |         |                 +- debugging
-                |         |                 |
-                |         |                 +- inplace
-                |         |                 |
-                |         |                 +- internal
-                |         |                 |
-                |         |                 +- malloc
-                |         |
-                |         +- signal
-                |         |
-                |         +- substr
-                |         |
-                |         +- syntax --------+
-                |         |                 |
-                |         |                 +- ambiguous
-                |         |                 |
-                |         |                 +- bareword
-                |         |                 |
-                |         |                 +- digit
-                |         |                 |
-                |         |                 +- illegalproto
-                |         |                 |
-                |         |                 +- parenthesis
-                |         |                 |
-                |         |                 +- precedence
-                |         |                 |
-                |         |                 +- printf
-                |         |                 |
-                |         |                 +- prototype
-                |         |                 |
-                |         |                 +- qw
-                |         |                 |
-                |         |                 +- reserved
-                |         |                 |
-                |         |                 +- semicolon
-                |         |
-                |         +- taint
-                |         |
-                |         +- threads
-                |         |
-                |         +- uninitialized
-                |         |
-                |         +- unpack
-                |         |
-                |         +- untie
-                |         |
-                |         +- utf8 ----------+
-                |         |                 |
-                |         |                 +- non_unicode
-                |         |                 |
-                |         |                 +- nonchar
-                |         |                 |
-                |         |                 +- surrogate
-                |         |
-                |         +- void
-                |
-                +- extra -+
-                          |
-                          +- void_unusual
+ everything -+
+             |
+             +- all ---+
+             |         |
+             |         +- closure
+             |         |
+             |         +- deprecated
+             |         |
+             |         +- exiting
+             |         |
+             |         +- experimental --+
+             |         |                 |
+             |         |                 +- experimental::autoderef
+             |         |                 |
+             |         |                 +- experimental::lexical_subs
+             |         |                 |
+             |         |                 +- experimental::lexical_topic
+             |         |                 |
+             |         |                 +- experimental::postderef
+             |         |                 |
+             |         |                 +- experimental::refaliasing
+             |         |                 |
+             |         |                 +- experimental::regex_sets
+             |         |                 |
+             |         |                 +- experimental::signatures
+             |         |                 |
+             |         |                 +- experimental::smartmatch
+             |         |                 |
+             |         |                 +- experimental::win32_perlio
+             |         |
+             |         +- glob
+             |         |
+             |         +- imprecision
+             |         |
+             |         +- io ------------+
+             |         |                 |
+             |         |                 +- closed
+             |         |                 |
+             |         |                 +- exec
+             |         |                 |
+             |         |                 +- layer
+             |         |                 |
+             |         |                 +- newline
+             |         |                 |
+             |         |                 +- pipe
+             |         |                 |
+             |         |                 +- syscalls
+             |         |                 |
+             |         |                 +- unopened
+             |         |
+             |         +- locale
+             |         |
+             |         +- misc
+             |         |
+             |         +- missing
+             |         |
+             |         +- numeric
+             |         |
+             |         +- once
+             |         |
+             |         +- overflow
+             |         |
+             |         +- pack
+             |         |
+             |         +- portable
+             |         |
+             |         +- recursion
+             |         |
+             |         +- redefine
+             |         |
+             |         +- redundant
+             |         |
+             |         +- regexp
+             |         |
+             |         +- severe --------+
+             |         |                 |
+             |         |                 +- debugging
+             |         |                 |
+             |         |                 +- inplace
+             |         |                 |
+             |         |                 +- internal
+             |         |                 |
+             |         |                 +- malloc
+             |         |
+             |         +- signal
+             |         |
+             |         +- substr
+             |         |
+             |         +- syntax --------+
+             |         |                 |
+             |         |                 +- ambiguous
+             |         |                 |
+             |         |                 +- bareword
+             |         |                 |
+             |         |                 +- digit
+             |         |                 |
+             |         |                 +- illegalproto
+             |         |                 |
+             |         |                 +- parenthesis
+             |         |                 |
+             |         |                 +- precedence
+             |         |                 |
+             |         |                 +- printf
+             |         |                 |
+             |         |                 +- prototype
+             |         |                 |
+             |         |                 +- qw
+             |         |                 |
+             |         |                 +- reserved
+             |         |                 |
+             |         |                 +- semicolon
+             |         |
+             |         +- taint
+             |         |
+             |         +- threads
+             |         |
+             |         +- uninitialized
+             |         |
+             |         +- unpack
+             |         |
+             |         +- untie
+             |         |
+             |         +- utf8 ----------+
+             |         |                 |
+             |         |                 +- non_unicode
+             |         |                 |
+             |         |                 +- nonchar
+             |         |                 |
+             |         |                 +- surrogate
+             |         |
+             |         +- void
+             |
+             +- extra -+
+                       |
+                       +- void_unusual
 
 Just like the "strict" pragma any of these categories can be combined
 

diff --git a/regen/warnings.pl b/regen/warnings.pl
index 949617f..a6b8c02 100644 (file)
--- 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 $_ ;