avoid commenting on a blank configsh setting.
git-svn-id: http://emdebian.org/svn/current@8458 563faec7-e20c-0410-992a-a66f704d0ccd
This commit is contained in:
parent
fdfa6bac60
commit
c6084fbc2a
1 changed files with 4 additions and 1 deletions
|
@ -1151,9 +1151,12 @@ sub cascade {
|
||||||
if (defined $keys{$section}{'tarballname'} and (not defined $tgzname));
|
if (defined $keys{$section}{'tarballname'} and (not defined $tgzname));
|
||||||
chomp($tgzname) if (defined $tgzname);
|
chomp($tgzname) if (defined $tgzname);
|
||||||
undef $tgzname if (defined $tgzname and $tgzname eq '');
|
undef $tgzname if (defined $tgzname and $tgzname eq '');
|
||||||
|
if ((defined $configsh) and ($configsh eq '')) {
|
||||||
|
undef $configsh
|
||||||
|
}
|
||||||
if ((defined $configsh) and (not -x $configsh)) {
|
if ((defined $configsh) and (not -x $configsh)) {
|
||||||
undef $configsh;
|
|
||||||
my $configmsg = sprintf (_g("INF: '%s' exists but is not executable - ignoring.\n"), $configsh);
|
my $configmsg = sprintf (_g("INF: '%s' exists but is not executable - ignoring.\n"), $configsh);
|
||||||
|
undef $configsh;
|
||||||
warn $configmsg;
|
warn $configmsg;
|
||||||
$warn_count++;
|
$warn_count++;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue