diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/draknet | 6 | ||||
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/service_harddrake | 2 |
3 files changed, 4 insertions, 6 deletions
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet index 968273828..083c99230 100755 --- a/perl-install/standalone/draknet +++ b/perl-install/standalone/draknet @@ -669,10 +669,8 @@ Create one first by clicking on 'Configure'")),1,1,0); $button_ok->signal_connect ( clicked => sub { $i=0; foreach (@mask) { - if ($_) { - ${$conf_data[$i]->[1]}=$infos[2*$i+1]->get_text(); - } - $i++; + ${$conf_data[$i]->[1]}=$infos[2*$i+1]->get_text() if ($_); + $i++; } update(); $button_apply->set_sensitive(1); diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index a23f1e743..da3d09588 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -4,4 +4,4 @@ use strict; use lib qw(/usr/lib/libDrakX); use harddrake::ui; -ui->run; +harddrake::ui->run; diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake index d0e8ae386..d65d94723 100755 --- a/perl-install/standalone/service_harddrake +++ b/perl-install/standalone/service_harddrake @@ -43,7 +43,7 @@ my %config; # For each hw, class, detect device, compare and offer to reconfigure if # needed -foreach (@data::tree) { +foreach (@harddrake::data::tree) { my ($Ident, $item, undef, $configurator, $detector) = @$_; # No detector ? (should never happen but who know ?) |