Dolda2000 GitWeb
/
doldaconnect.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
fc986cdb33dafc4783238aae7d0f9c95069418b9
[doldaconnect.git]
/
mksrc
1
#!/usr/bin/perl -w
2
3
defined ($bn = $ARGV[0]) || die "no basename given";
4
5
while(<STDIN>) {
6
s,G/PC,\u$bn,g;
7
s,G/PU,\U$bn\E,g;
8
s,G/P,$bn,g;
9
print;
10
}