Changeset 1614


Ignore:
Timestamp:
May 28, 2012, 11:34:51 AM (6 years ago)
Author:
bruno
Message:
  • Fix newver in 0.12.1 as it was in devel branch to support better pbcl file format
File:
1 edited

Legend:

Unmodified
Added
Removed
  • 0.12.1/pb/bin/pb

    r1606 r1614  
    29582958        open(OUT,"> $f2") || die "Unable to write to $f2: $!";
    29592959        open(PBCL,$f) || die "Unable to open $f";
     2960        # We skip as long as we do not reach the new version in the log (case of devel)
     2961        my $skip = 1;
     2962        # We let the 4 first lines
     2963        my $cnt = 0;
    29602964        while (<PBCL>) {
    2961             print OUT "$_" if (not /^$oldvertxt \(/);
     2965            $skip = 0 if (/^$newvertxt \(/);
    29622966            if ((/^$oldvertxt \(/) && ($foundnew == 0)) {
    29632967                print OUT "$newvertxt ($pbdate)\n";
     
    29662970                pb_log(0,"WARNING: version $newvertxt not found in $f so added to $f2...\n") if ($foundnew == 0);
    29672971            }
     2972            if ($cnt <= 4) {
     2973                print OUT "$_" if (not /^$oldvertxt \(/);
     2974            } else {
     2975                print OUT "$_" if ($skip == 0);
     2976            }
     2977            $cnt++;
    29682978        }
    29692979        close(OUT);
Note: See TracChangeset for help on using the changeset viewer.