From 76bd5da4ba4140e2473deaf3c85b8d57f2dd7998 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 25 Aug 2004 10:57:58 +0000 Subject: don't abort miserably if configurator is code --- perl-install/standalone/service_harddrake | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake index 5e12cb563..4b96856eb 100755 --- a/perl-install/standalone/service_harddrake +++ b/perl-install/standalone/service_harddrake @@ -131,7 +131,7 @@ foreach my $hw_class (@harddrake::data::tree) { next if $is_globetrotter && !$hw_class->{automatic}; next unless $configurator_pool[0]; - if (!-x first(split /\s+/, $configurator_pool[0])) { + if (ref($configurator) ne 'CODE' && !-x first(split /\s+/, $configurator_pool[0])) { log::explanations(qw(skip $Ident configuration since "$configurator" isn't executable)); next; } -- cgit v1.2.1