Ignore:
Timestamp:
Apr 7, 2008, 11:07:33 PM (12 years ago)
Author:
bruno
Message:

Preliminary tests for the new newvm action (test only)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/lib/ProjectBuilder/Base.pm

    r355 r358  
    181181
    182182#
    183 # The following part is only useful when in cms2build
     183# The following part is only useful when in cms2something of newver
    184184# In VMs/VEs we want to skip that by providing good env vars.
    185185# return values in that case are useless
    186186#
    187 if ($action =~ /^cms2/) {
     187if (($action =~ /^cms2/) || ($action =~ /^newver$/)) {
    188188
    189189    #
     
    228228        die "$ENV{'PBROOTDIR'} is not a directory" if (not -d $ENV{'PBROOTDIR'});
    229229    }
     230
     231    return  if ($action =~ /^newver$/);
    230232
    231233    my %version = ();
     
    13411343sub pb_cms_isdiff {
    13421344my $scheme = shift;
     1345my $dir =shift;
    13431346
    13441347if ($scheme =~ /^svn/) {
    1345     open(PIPE,"svn diff $ENV{'PBROOTDIR'} |") || die "Unable to get svn diff from $ENV{'PBROOTDIR'}";
     1348    open(PIPE,"svn diff $dir |") || die "Unable to get svn diff from $dir";
    13461349    my $l = 0;
    13471350    while (<PIPE>) {
     
    13511354} elsif ($scheme eq "flat") {
    13521355} elsif ($scheme =~ /^cvs/) {
     1356    open(PIPE,"cvs diff $dir |") || die "Unable to get svn diff from $dir";
     1357    my $l = 0;
     1358    while (<PIPE>) {
     1359        # Skipping normal messages
     1360        next if (/^cvs diff:/);
     1361        $l++;
     1362    }
     1363    return($l);
    13531364} else {
    13541365    die "cms $scheme unknown";
Note: See TracChangeset for help on using the changeset viewer.