diff options
author | Nicholas Clark <nick@ccl4.org> | 2012-06-19 16:18:39 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2012-07-10 13:08:55 +0200 |
commit | f711619fd1eeb97e4fd8ecb19fb934b351190e86 (patch) | |
tree | ac2a2413f398387471a999bd8193e4875e518376 /configpm | |
parent | 779248a0d4ccf62fbb0934437eab9877f253b6a0 (diff) | |
download | perl-f711619fd1eeb97e4fd8ecb19fb934b351190e86.tar.gz |
In configpm, switch to using sprintf for part of generating Config_heavy.pl
This will make subsequent changes easier.
Diffstat (limited to 'configpm')
-rwxr-xr-x | configpm | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -149,14 +149,14 @@ die "Can't automatically determine name for Config_heavy.pl from '$Config_PM'" my $config_txt; my $heavy_txt; -$heavy_txt .= <<'ENDOFBEG'; +$heavy_txt .= sprintf <<'ENDOFBEG'; # This file was created by configpm when Perl was built. Any changes # made to this file will be lost the next time perl is built. package Config; use strict; use warnings; -use vars '%Config'; +use vars '%%Config'; sub bincompat_options { return split ' ', (Internals::V())[0]; @@ -202,11 +202,11 @@ sub _V { print " $date\n" if defined $date; - my @env = map { "$_=\"$ENV{$_}\"" } sort grep {/^PERL/} keys %ENV; + my @env = map { "$_=\"$ENV{$_}\"" } sort grep {/^PERL/} keys %%ENV; push @env, "CYGWIN=\"$ENV{CYGWIN}\"" if $^O eq 'cygwin' and $ENV{CYGWIN}; if (@env) { - print " \%ENV:\n"; + print " \%%ENV:\n"; print " $_\n" foreach @env; } print " \@INC:\n"; |