Changeset 211 in ProjectBuilder for devel

Timestamp:

Oct 14, 2007, 8:46:23 PM (18 years ago)

Author:

Bruno Cornec

Message:

Another fix for newver

File:

• devel/pb/bin/pb (modified) (1 diff)

devel/pb/bin/pb

@@ -707 +707 @@
     pb_cms_checkout($cms,$newurl,"$ENV{'PBROOT'}/../$newver");
     my $oldver=basename($cmsurl);
-    open(FILE,"+<$ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb") || die "Unable to open $ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb";
+    open(FILE,"$ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb") || die "Unable to open $ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb";
+    open(OUT,"> $ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb.new") || die "Unable to write to $ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb.new";
     while(<FILE>) {
         s/projver\s+$ENV{'PBPROJ'}\s*=\s*$oldver/projver $ENV{'PBPROJ'} = $newver/;
+        print OUT $_;
     }
     close(FILE);
+    close(OUT);
+    rename("$ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb.new","$ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb");
     pb_cms_checkin($cms,"$ENV{'PBROOT'}/../$newver");
 }