#100000# reverse check for children variable

This commit is contained in:
Vladimir Glazounov 2003-09-16 08:10:31 +00:00
parent 7af5839f73
commit 2c362ada02

View file

@ -5,9 +5,9 @@ eval 'exec perl -S $0 ${1+"$@"}'
# #
# $RCSfile: build.pl,v $ # $RCSfile: build.pl,v $
# #
# $Revision: 1.89 $ # $Revision: 1.90 $
# #
# last change: $Author: vg $ $Date: 2003-09-11 09:05:11 $ # last change: $Author: vg $ $Date: 2003-09-16 09:10:31 $
# #
# The Contents of this file are made available subject to the terms of # The Contents of this file are made available subject to the terms of
# either of the following licenses # either of the following licenses
@ -84,7 +84,7 @@ if (defined $ENV{CWS_WORK_STAMP}) {
( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/; ( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
$id_str = ' $Revision: 1.89 $ '; $id_str = ' $Revision: 1.90 $ ';
$id_str =~ /Revision:\s+(\S+)\s+\$/ $id_str =~ /Revision:\s+(\S+)\s+\$/
? ($script_rev = $1) : ($script_rev = "-"); ? ($script_rev = $1) : ($script_rev = "-");
@ -673,7 +673,7 @@ sub FindIndepPrj {
return $Prj if ($#PrjDeps == -1); return $Prj if ($#PrjDeps == -1);
}; };
# If there are only dependent projects in hash - generate error # If there are only dependent projects in hash - generate error
return '' if ($BuildAllParents && $children); return '' if ($BuildAllParents && !$children);
if ($children) { if ($children) {
$only_dependent = 1; $only_dependent = 1;
return ''; return '';