278
278
my($ret, $mesg, $config, @configs);
284
284
my $configPath = $s->ConfigPath($host);
286
286
push(@configs, $configPath) if ( -f $configPath );
287
287
foreach $config ( @configs ) {
289
289
if ( !defined($ret = do $config) && ($! || $@) ) {
290
290
$mesg = "Couldn't open $config: $!" if ( $! );
291
291
$mesg = "Couldn't execute $config: $@" if ( $@ );