Changeset 358 in ProjectBuilder for devel/pb/lib/ProjectBuilder
- Timestamp:
- Apr 7, 2008, 11:07:33 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/ProjectBuilder/Base.pm
r355 r358 181 181 182 182 # 183 # The following part is only useful when in cms2 build183 # The following part is only useful when in cms2something of newver 184 184 # In VMs/VEs we want to skip that by providing good env vars. 185 185 # return values in that case are useless 186 186 # 187 if ( $action =~ /^cms2/) {187 if (($action =~ /^cms2/) || ($action =~ /^newver$/)) { 188 188 189 189 # … … 228 228 die "$ENV{'PBROOTDIR'} is not a directory" if (not -d $ENV{'PBROOTDIR'}); 229 229 } 230 231 return if ($action =~ /^newver$/); 230 232 231 233 my %version = (); … … 1341 1343 sub pb_cms_isdiff { 1342 1344 my $scheme = shift; 1345 my $dir =shift; 1343 1346 1344 1347 if ($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"; 1346 1349 my $l = 0; 1347 1350 while (<PIPE>) { … … 1351 1354 } elsif ($scheme eq "flat") { 1352 1355 } 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); 1353 1364 } else { 1354 1365 die "cms $scheme unknown";
Note:
See TracChangeset
for help on using the changeset viewer.