diff options
author | David Mitchell <davem@iabyn.com> | 2016-06-17 13:42:36 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-06-17 13:52:40 +0100 |
commit | 0bac45c8ec730e2fa8dc539d8acfd2271778b4bf (patch) | |
tree | 187b6040c50210a3ffc036dbc219fd036ea52d2a /configpm | |
parent | e23397c2eeebcfee7f88b590392f8b0aec393f79 (diff) | |
download | perl-0bac45c8ec730e2fa8dc539d8acfd2271778b4bf.tar.gz |
perl -V: make 'Compile-time options' one per line
For improved readability, change:
Compile-time options: DEBUGGING MULTIPLICITY PERLIO_LAYERS
PERL_COPY_ON_WRITE PERL_DONT_CREATE_GVSV
PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
...
To:
Compile-time options:
DEBUGGING
HAS_TIMES
MULTIPLICITY
PERLIO_LAYERS
PERL_COPY_ON_WRITE
PERL_DONT_CREATE_GVSV
PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
....
Diffstat (limited to 'configpm')
-rwxr-xr-x | configpm | 11 |
1 files changed, 4 insertions, 7 deletions
@@ -478,20 +478,17 @@ sub _V { my ($bincompat, $non_bincompat, $date, @patches) = Internals::V(); - my $opts = join ' ', sort split ' ', "$bincompat $non_bincompat"; - - # wrap at 76 columns. - - $opts =~ s/(?=.{53})(.{1,53}) /$1\n /mg; + my @opts = sort split ' ', "$bincompat $non_bincompat"; print Config::myconfig(); print "\nCharacteristics of this %s: \n"; - print " Compile-time options: $opts\n"; + print " Compile-time options:\n"; + print " $_\n" for @opts; if (@patches) { print " Locally applied patches:\n"; - print "\t$_\n" foreach @patches; + print " $_\n" foreach @patches; } print " Built under %s\n"; |