[opendemo-cvs] CVS: opendemo/tools wpu,1.19,1.20

[Uwe G. <gi...@us...>]

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);
      }