Changeset 590 in ProjectBuilder for devel/pb/bin/pb

Timestamp:

Oct 14, 2008, 11:28:50 AM (16 years ago)

Author:

Bruno Cornec

Message:

• Impove CmS messages when dealing with /.. paths
• Improve newver and pbcl management in order to only touch created files, not original ones.

File:

• devel/pb/bin/pb (modified) (3 diffs)

devel/pb/bin/pb

@@ -1615 +1615 @@
     # Checking pbcl files
     foreach my $f (<$ENV{'PBROOTDIR'}/*/pbcl>) {
+        # Compute new pbcl file
+        my $f2 = $f;
+        $f2 =~ s|$ENV{'PBROOTDIR'}|$ENV{'PBROOTDIR'}/../$newver/|;
         open(PBCL,$f) || die "Unable to open $f";
         my $foundnew = 0;
@@ -1621 +1624 @@
         }
         close(PBCL);
-        open(OUT,"> $f.new") || die "Unable to write to $f.new: $!";
+        open(OUT,"> $f2") || die "Unable to write to $f2: $!";
         open(PBCL,$f) || die "Unable to open $f";
         while (<PBCL>) {
@@ -1629 +1632 @@
                 print OUT "- TBD\n";
                 print OUT "\n";
-                pb_log(0,"WARNING: version $newver not found in $f so added...") if ($foundnew == 0);
+                pb_log(0,"WARNING: version $newver not found in $f so added to $f2...\n") if ($foundnew == 0);
             }
         }
         close(OUT);
         close(PBCL);
-        rename("$f.new","$f");
     }