Changeset 208 for devel/pb/bin/pb


Ignore:
Timestamp:
Oct 14, 2007, 8:36:47 PM (12 years ago)
Author:
bruno
Message:

Improved newver again

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r204 r208  
    705705    my $newurl = dirname($cmsurl)."/$newver";
    706706    pb_cms_copy($cms,$cmsurl,$newurl);
    707     pb_cms_checkout($cms,$newurl,"$ENV{'PBROOT'}/..");
     707    pb_cms_checkout($cms,$newurl,"$ENV{'PBROOT'}/../$newver");
     708    my $oldver=basename($cmsurl);
     709    open(FILE,"+<$ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb") || die "Unable to open $ENV{'PBROOT'}/../$newver/pbconf/$ENV{'PBPROJ'}.pb";
     710    while(<FILE>) {
     711        s/projver[:space:]+$ENV{'PBPROJ'}[:space:]*=[:space:]*$oldver/projver $ENV{'PBPROJ'} = $newver/;
     712    }
     713    close(FILE);
     714    pb_cms_checkin($cms,"$ENV{'PBROOT'}/../$newver");
    708715}
    709716
Note: See TracChangeset for help on using the changeset viewer.