Changeset 208 in ProjectBuilder for devel/pb/bin

Timestamp:

Oct 14, 2007, 8:36:47 PM (17 years ago)

Author:

Bruno Cornec

Message:

Improved newver again

File:

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

devel/pb/bin/pb

@@ -705 +705 @@
     my $newurl = dirname($cmsurl)."/$newver";
     pb_cms_copy($cms,$cmsurl,$newurl);
-    pb_cms_checkout($cms,$newurl,"$ENV{'PBROOT'}/..");
+    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";
+    while(<FILE>) {
+        s/projver[:space:]+$ENV{'PBPROJ'}[:space:]*=[:space:]*$oldver/projver $ENV{'PBPROJ'} = $newver/;
+    }
+    close(FILE);
+    pb_cms_checkin($cms,"$ENV{'PBROOT'}/../$newver");
 }