Changeset 1614 in ProjectBuilder

Timestamp:

May 28, 2012, 11:34:51 AM (12 years ago)

Author:

Bruno Cornec

Message:

• Fix newver in 0.12.1 as it was in devel branch to support better pbcl file format

File:

• 0.12.1/pb/bin/pb (modified) (2 diffs)

0.12.1/pb/bin/pb

@@ -2958 +2958 @@
         open(OUT,"> $f2") || die "Unable to write to $f2: $!";
         open(PBCL,$f) || die "Unable to open $f";
+        # We skip as long as we do not reach the new version in the log (case of devel)
+        my $skip = 1;
+        # We let the 4 first lines
+        my $cnt = 0;
         while (<PBCL>) {
-            print OUT "$_" if (not /^$oldvertxt \(/);
+            $skip = 0 if (/^$newvertxt \(/);
             if ((/^$oldvertxt \(/) && ($foundnew == 0)) {
                 print OUT "$newvertxt ($pbdate)\n";
@@ -2966 +2970 @@
                 pb_log(0,"WARNING: version $newvertxt not found in $f so added to $f2...\n") if ($foundnew == 0);
             }
+            if ($cnt <= 4) {
+                print OUT "$_" if (not /^$oldvertxt \(/);
+            } else {
+                print OUT "$_" if ($skip == 0);
+            }
+            $cnt++;
         }
         close(OUT);