summaryrefslogtreecommitdiff
path: root/configpm
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2012-06-19 16:18:39 +0200
committerNicholas Clark <nick@ccl4.org>2012-07-10 13:08:55 +0200
commitf711619fd1eeb97e4fd8ecb19fb934b351190e86 (patch)
treeac2a2413f398387471a999bd8193e4875e518376 /configpm
parent779248a0d4ccf62fbb0934437eab9877f253b6a0 (diff)
downloadperl-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-xconfigpm8
1 files changed, 4 insertions, 4 deletions
diff --git a/configpm b/configpm
index d38c2683bd..ec81bfc8cf 100755
--- a/configpm
+++ b/configpm
@@ -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";