diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-14 08:35:00 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-14 08:35:00 +0000 |
| commit | 691c0cce63d17f1cd46c50c7861ddd4fb55f308c (patch) | |
| tree | d35957ee9a48562a78c6e7f268281f70efe48b85 /win32/config_sh.PL | |
| parent | ccb44e3bf3be2c3023bf293c978350351eba8b78 (diff) | |
| download | perl-691c0cce63d17f1cd46c50c7861ddd4fb55f308c.tar.gz | |
win32 config tweak (suggested by Greg Chapman <glc@well.com>)
p4raw-id: //depot/perl@4148
Diffstat (limited to 'win32/config_sh.PL')
| -rw-r--r-- | win32/config_sh.PL | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/win32/config_sh.PL b/win32/config_sh.PL index fc0daf05bc..3edc20bdac 100644 --- a/win32/config_sh.PL +++ b/win32/config_sh.PL @@ -36,12 +36,13 @@ while (<>) { s/~([\w_]+)~/$opt{$1}/g; if (/^([\w_]+)=(.*)$/) { + my($k,$v) = ($1,$2); # this depends on cf_time being empty in the template (or we'll get a loop) - if ($1 eq 'cf_time') { - $_ = "$1='" . localtime(time) . "'\n" if $2 =~ /^\s*'\s*'/; + if ($k eq 'cf_time') { + $_ = "$k='" . localtime(time) . "'\n" if $v =~ /^\s*'\s*'/; } - elsif (exists $opt{$1}) { - $_ = "$1='$opt{$1}'\n"; + elsif (exists $opt{$k}) { + $_ = "$k='$opt{$k}'\n"; } } print; |