mirror of
https://github.com/webmin/webmin.git
synced 2026-08-07 16:30:38 +01:00
Fix the loop bug when sourcing other configs ; remove stderr print
This commit is contained in:
@@ -800,7 +800,6 @@ open($fh, $file) || return ();
|
||||
my $line = <$fh>;
|
||||
my $lnum = 0;
|
||||
while (defined $line) {
|
||||
print STDERR "file=$file line=$line\n";
|
||||
chomp($line);
|
||||
# skip comments
|
||||
if ($line =~ /^\s*#/ || $line =~ /^\s*$/) {
|
||||
@@ -828,14 +827,13 @@ while (defined $line) {
|
||||
next;
|
||||
}
|
||||
}
|
||||
elsif ($line =~ /^\s*source\s+(\S+)/) {
|
||||
elsif ($line =~ /^\s*(source|source-directory)\s+(\S+)/) {
|
||||
# Expand includes
|
||||
$line = <$fh>;
|
||||
$lnum++;
|
||||
my $src = $1;
|
||||
my $src = $2;
|
||||
my @srcs = glob($src);
|
||||
foreach $src (@srcs) {
|
||||
print STDERR "including $src\n";
|
||||
my @inc = &get_interface_defs($src);
|
||||
push(@ret, @inc);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user