diff options
| author | Matthew Horsfall <wolfsage@gmail.com> | 2016-06-21 13:31:37 -0400 |
|---|---|---|
| committer | Matthew Horsfall <wolfsage@gmail.com> | 2016-06-21 13:43:18 -0400 |
| commit | 21a5c8db3a272de4e9aec0faf8402cb19ce8dbc9 (patch) | |
| tree | 79e0a7a322021c33a87620f650c9e50a35ae8d79 /regen | |
| parent | e7acdfe976f01ee0d1ba31b3b1db61454a72d6c9 (diff) | |
| download | perl-21a5c8db3a272de4e9aec0faf8402cb19ce8dbc9.tar.gz | |
Sort @def before generating $warnings::DEFAULT.
This makes the comment easier to read.
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 22c9c1531f..815c735e37 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -16,7 +16,7 @@ # # This script is normally invoked from regen.pl. -$VERSION = '1.36'; +$VERSION = '1.37'; BEGIN { require 'regen/regen_lib.pl'; @@ -470,7 +470,7 @@ print $pm ");\n\n" ; print $pm "# These are used by various things, including our own tests\n"; print $pm tab(6, 'our $NONE'), '= "', ('\0' x $warn_size) , "\";\n" ; print $pm tab(6, 'our $DEFAULT'), '= "', mkHex($warn_size, map $_ * 2, @def), - '", # [', mkRange(@def), "]\n" ; + '", # [', mkRange(sort { $a <=> $b } @def), "]\n" ; print $pm tab(6, 'our $LAST_BIT'), '= ' . "$index ;\n" ; print $pm tab(6, 'our $BYTES'), '= ' . "$warn_size ;\n" ; while (<DATA>) { |