Update of /cvsroot/opendemo/opendemo/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10582
Modified Files:
wpu
Log Message:
copy over current LMPC version
Index: wpu
===================================================================
RCS file: /cvsroot/opendemo/opendemo/tools/wpu,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** wpu 2 Aug 2004 19:22:38 -0000 1.19
--- wpu 9 Aug 2004 19:52:39 -0000 1.20
***************
*** 188,203 ****
mergehash(\%values, $optctl{"set"});
- foreach (sort keys %values) {
- $values{$_} = substvariables ($values{$_});
- # printf "'%s' = '%s'\n", $_, $values{$_};
- }
-
- #print "package=" , $values{"PACKAGE"},
- # " version=", $values{"VERSION"},
- # " date=", $values{"DATE"}, "\n";
- #print "comment=\"" , $values{"COMMENT"} , "\"\n";
- # print "file args=", join ", ", @ARGV;
- # print "\n";
-
# set some calculated variables due to the limitation of the @blahblah@
# method.
--- 188,191 ----
***************
*** 206,209 ****
--- 194,203 ----
}
+ # generic subst action
+ foreach (sort keys %values) {
+ $values{$_} = substvariables ($values{$_});
+ # printf "'%s' = '%s'\n", $_, $values{$_};
+ }
+
if (exists $values{"PACKAGE"}) {
$values{"CAPSPACKAGE"} = uc $values{"PACKAGE"};
***************
*** 948,951 ****
--- 942,946 ----
$from = "@" . $value . "@";
$to = $values{$value};
+ # printf STDERR "subst ($from) -> ($to)\n";
$count += ($string =~ s/$from/$to/g);
}
|
