diff options
| author | Vadim Konovalov <vkonovalov@lucent.com> | 2002-05-04 07:49:11 +0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-05 01:05:17 +0000 |
| commit | 18f68570297a02601dc2452e05e11ca1485ace3f (patch) | |
| tree | 51500988a2689c530c150a514098ec39d08325f4 /wince/config_h.PL | |
| parent | a4ccfa7629128e4b79e21f856eb1cbf44ef54e7e (diff) | |
| download | perl-18f68570297a02601dc2452e05e11ca1485ace3f.tar.gz | |
Re: Cross-compiling as of WinCE
Message-ID: <00ca01c1f2fd$20a35fb0$cb5cc3d9@vad>
p4raw-id: //depot/perl@16407
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)) { |