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

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 ?)