Changeset 590 in ProjectBuilder for devel/pb/bin/pb
- Timestamp:
- Oct 14, 2008, 11:28:50 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r586 r590 1615 1615 # Checking pbcl files 1616 1616 foreach my $f (<$ENV{'PBROOTDIR'}/*/pbcl>) { 1617 # Compute new pbcl file 1618 my $f2 = $f; 1619 $f2 =~ s|$ENV{'PBROOTDIR'}|$ENV{'PBROOTDIR'}/../$newver/|; 1617 1620 open(PBCL,$f) || die "Unable to open $f"; 1618 1621 my $foundnew = 0; … … 1621 1624 } 1622 1625 close(PBCL); 1623 open(OUT,"> $f .new") || die "Unable to write to $f.new: $!";1626 open(OUT,"> $f2") || die "Unable to write to $f2: $!"; 1624 1627 open(PBCL,$f) || die "Unable to open $f"; 1625 1628 while (<PBCL>) { … … 1629 1632 print OUT "- TBD\n"; 1630 1633 print OUT "\n"; 1631 pb_log(0,"WARNING: version $newver not found in $f so added ...") if ($foundnew == 0);1634 pb_log(0,"WARNING: version $newver not found in $f so added to $f2...\n") if ($foundnew == 0); 1632 1635 } 1633 1636 } 1634 1637 close(OUT); 1635 1638 close(PBCL); 1636 rename("$f.new","$f");1637 1639 } 1638 1640
Note:
See TracChangeset
for help on using the changeset viewer.