From 6e36e5d6b1d55a4a3bc3796c11e6d306a72d139f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 17 Jun 2004 23:50:45 +0000 Subject: kill warnings --- perl-install/standalone/harddrake2 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone/harddrake2') diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 38e897f37..37267f493 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -254,7 +254,7 @@ $tree->get_selection->signal_connect('changed' => sub { show_hide(defined($current_device->{driver}) && $current_device->{driver} !~ /^unknown|^Bad|^Card|^Hsf|^Removable:|\|/, $module_cfg_button); $current_configurator = $configurators[$idx]; - show_hide(-x first(split /\s+/, $current_configurator), $config_button); # strip arguments for -x test + show_hide($current_configurator && -x first(split /\s+/, $current_configurator), $config_button); # strip arguments for -x test return 1; } } -- cgit v1.2.1