projects
/
p5sagit/p5-mst-13.2.git
/ blame
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blob
|
history
|
HEAD
OS/2 doc patch for _99
[p5sagit/p5-mst-13.2.git]
/
win32
/
config_sh.PL
Commit
Line
Data
137443ea
1
my %opt;
2
while (@ARGV && $ARGV[0] =~ /^([\w_]+)=(.*)$/)
3
{
4
$opt{$1}=$2;
5
shift(@ARGV);
6
}
7
while (<>)
8
{
9
s/~([\w_]+)~/$opt{$1}/g;
10
$_ = "$1='$opt{$1}'\n" if (/^([\w_]+)=/ && exists($opt{$1}));
11
print;
12
}
13