diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-04-27 23:30:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-28 15:29:30 +0000 |
| commit | 7bd379e81ea13d83ac434499c69ddde30e5c4259 (patch) | |
| tree | 3757e557c4cfa29634e1679af997c866f4fa10a4 /win32/config_h.PL | |
| parent | ff235dd6d6f5e19e11c9202d4a82fb8e5fbadadd (diff) | |
| download | perl-7bd379e81ea13d83ac434499c69ddde30e5c4259.tar.gz | |
Merge WinCE and Win32 directories -- Initial patch
Message-ID: <9b18b3110604271430k4de84685jec6535ded195ed94@mail.gmail.com>
p4raw-id: //depot/perl@28003
Diffstat (limited to 'win32/config_h.PL')
| -rw-r--r-- | win32/config_h.PL | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/win32/config_h.PL b/win32/config_h.PL index 957966c59f..ad2c9a3afa 100644 --- a/win32/config_h.PL +++ b/win32/config_h.PL @@ -2,8 +2,8 @@ BEGIN { warn "Running ".__FILE__."\n" }; BEGIN { - require "../lib/Config.pm"; - die "../Config.pm:$@" if $@; + require "Config.pm"; + die "Config.pm:$@" if $@; Config::->import; } use File::Compare qw(compare); @@ -18,6 +18,7 @@ while (@ARGV && $ARGV[0] =~ /^([\w_]+)=(.*)$/) } $opt{CONFIG_H} ||= 'config.h'; +$opt{CORE_DIR} ||= '../lib/CORE'; warn "Writing $opt{CONFIG_H}\n"; @@ -76,9 +77,9 @@ close(H); close(SH); -chmod(0666,"../lib/CORE/config.h"); -copy("$file.new","../lib/CORE/config.h") || die "Cannot copy:$!"; -chmod(0444,"../lib/CORE/config.h"); +chmod(0666,"$opt{CORE_DIR}/$opt{CONFIG_H}"); +copy("$file.new","$opt{CORE_DIR}/$opt{CONFIG_H}") || die "Cannot copy:$!"; +chmod(0444,"$opt{CORE_DIR}/$opt{CONFIG_H}"); if (compare("$file.new",$file)) { |