summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/service_harddrake
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-25 10:57:58 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-25 10:57:58 +0000
commit76bd5da4ba4140e2473deaf3c85b8d57f2dd7998 (patch)
treeb32b153a55628180e8c19b69b55d4e57291c47d2 /perl-install/standalone/service_harddrake
parent7373abfdbe5e9fce66bf9d87165794282c94cc48 (diff)
downloaddrakx-backup-do-not-use-76bd5da4ba4140e2473deaf3c85b8d57f2dd7998.tar
drakx-backup-do-not-use-76bd5da4ba4140e2473deaf3c85b8d57f2dd7998.tar.gz
drakx-backup-do-not-use-76bd5da4ba4140e2473deaf3c85b8d57f2dd7998.tar.bz2
drakx-backup-do-not-use-76bd5da4ba4140e2473deaf3c85b8d57f2dd7998.tar.xz
drakx-backup-do-not-use-76bd5da4ba4140e2473deaf3c85b8d57f2dd7998.zip
don't abort miserably if configurator is code
Diffstat (limited to 'perl-install/standalone/service_harddrake')
-rwxr-xr-xperl-install/standalone/service_harddrake2
1 files changed, 1 insertions, 1 deletions
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;
}