diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-12 06:40:04 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-12 06:40:04 +0000 |
| commit | 38121b9e38956dc80be4afeca69de90ecbcf1dbe (patch) | |
| tree | 165435acc3947cdaad7b0638d0026027a109bf33 /win32/config_h.PL | |
| parent | 65c97e0fa99ead017678d8a15d6f6e7f4892eb97 (diff) | |
| download | perl-38121b9e38956dc80be4afeca69de90ecbcf1dbe.tar.gz | |
change#6174 needs corresponding change in win32/config_h.PL,
which grovels through config_h.SH to find the config.h name
p4raw-link: @6174 on //depot/metaconfig: cfd1a6dce7dce25772bf4f5399e251457574eeeeon //depot/cfgperl: 12ae5dfcd4fd6f54af051c41b2e122532efce8d3
p4raw-id: //depot/perl@6379
Diffstat (limited to 'win32/config_h.PL')
| -rw-r--r-- | win32/config_h.PL | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/win32/config_h.PL b/win32/config_h.PL index 5b0450609f..91f35a4753 100644 --- a/win32/config_h.PL +++ b/win32/config_h.PL @@ -11,6 +11,9 @@ while (@ARGV && $ARGV[0] =~ /^([\w_]+)=(.*)$/) $opt{$1}=$2; shift(@ARGV); } + +$opt{CONFIG_H} ||= 'config.h'; + my $patchlevel = $opt{INST_VER}; $patchlevel =~ s|^[\\/]||; $patchlevel =~ s|~VERSION~|$Config{version}|g; @@ -24,6 +27,8 @@ while (<SH>) } ($term,$file,$pat) = /^sed\s+<<(\S+)\s+>(\S+)\s+(.*)$/; +$file =~ s/^\$(\w+)$/$opt{$1}/g; + my $str = "sub munge\n{\n"; while ($pat =~ s/-e\s+'([^']*)'\s*//) |