summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-07-08 07:45:08 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-07-08 07:45:08 +0000
commit9555bb791920e8feace953f90cf908e864451b59 (patch)
treeecabc98ad8cb1019c81cf321ea5418d679950482 /perl-install/standalone
parent71c714077ded40469aa5887b939a60723308dba5 (diff)
downloaddrakx-9555bb791920e8feace953f90cf908e864451b59.tar
drakx-9555bb791920e8feace953f90cf908e864451b59.tar.gz
drakx-9555bb791920e8feace953f90cf908e864451b59.tar.bz2
drakx-9555bb791920e8feace953f90cf908e864451b59.tar.xz
drakx-9555bb791920e8feace953f90cf908e864451b59.zip
various cleanups:
- move all harddrake modules to harddrake namespace - replace two use by require so that it's not done at compil time but at runtime - there was a missing $ in harddrake::ui.pm
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/draknet6
-rwxr-xr-xperl-install/standalone/harddrake22
-rwxr-xr-xperl-install/standalone/service_harddrake2
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 ?)