diff options
Diffstat (limited to 'wince/config_h.PL')
| -rw-r--r-- | wince/config_h.PL | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/wince/config_h.PL b/wince/config_h.PL index d78a62ea59..957966c59f 100644 --- a/wince/config_h.PL +++ b/wince/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; @@ -68,9 +76,9 @@ close(H); close(SH); -chmod(0666,"config.h"); -copy("$file.new","config.h") || die "Cannot copy:$!"; -chmod(0444,"config.h"); +chmod(0666,"../lib/CORE/config.h"); +copy("$file.new","../lib/CORE/config.h") || die "Cannot copy:$!"; +chmod(0444,"../lib/CORE/config.h"); if (compare("$file.new",$file)) { |