diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-11 17:49:39 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-11 17:49:39 +0000 |
| commit | 1018e26f1c13277648057b08a7b77db44ebc46fe (patch) | |
| tree | cf4732d6b57057c8a413df56f7355011bfcbd185 /win32/config_h.PL | |
| parent | 85439dabe787f501fcc574bbf8ea205f27e2943b (diff) | |
| download | perl-1018e26f1c13277648057b08a7b77db44ebc46fe.tar.gz | |
A mostly-stable version of "new" Win32 signal/kill support.
p4raw-id: //depot/perlio@14192
Diffstat (limited to 'win32/config_h.PL')
| -rw-r--r-- | win32/config_h.PL | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/win32/config_h.PL b/win32/config_h.PL index 607c4844a2..957966c59f 100644 --- a/win32/config_h.PL +++ b/win32/config_h.PL @@ -1,5 +1,11 @@ # -use Config; +BEGIN { warn "Running ".__FILE__."\n" }; +BEGIN + { + require "../lib/Config.pm"; + die "../Config.pm:$@" if $@; + Config::->import; + } use File::Compare qw(compare); use File::Copy qw(copy); my $name = $0; @@ -13,6 +19,8 @@ while (@ARGV && $ARGV[0] =~ /^([\w_]+)=(.*)$/) $opt{CONFIG_H} ||= 'config.h'; +warn "Writing $opt{CONFIG_H}\n"; + my $patchlevel = $opt{INST_VER}; $patchlevel =~ s|^[\\/]||; $patchlevel =~ s|~VERSION~|$Config{version}|g; |