summaryrefslogtreecommitdiffstats
path: root/perl-install/harddrake/ui.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-11 19:11:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-11 19:11:59 +0000
commitbfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (patch)
tree42b0132d629d68fffde6b0e828126c18c0c3d1ed /perl-install/harddrake/ui.pm
parent195f44c2da47b9f0df0461b593935d89619a5a0e (diff)
downloaddrakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar
drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.gz
drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.bz2
drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.xz
drakx-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.zip
add or remove spaces where need to please perl_checker
Diffstat (limited to 'perl-install/harddrake/ui.pm')
-rw-r--r--perl-install/harddrake/ui.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index 882f0bc1a..c4009e5e9 100644
--- a/perl-install/harddrake/ui.pm
+++ b/perl-install/harddrake/ui.pm
@@ -94,7 +94,7 @@ my @menu_items =
if ($current_device) {
$in->ask_warn(N("Harddrake help"),
N("Description of the fields:\n\n")
- . join("\n\n", map { if_($fields{$_}[0], "$fields{$_}[0]: $fields{$_}[1]")} sort keys %$current_device))
+ . join("\n\n", map { if_($fields{$_}[0], "$fields{$_}[0]: $fields{$_}[1]") } sort keys %$current_device))
} else {
$in->ask_warn(N("Select a device !"), N("Once you've selected a device, you'll be able to see explanations on fields displayed on the right frame (\"Information\")"))
}
@@ -106,7 +106,7 @@ my @menu_items =
callback => sub {
$in->ask_warn(N("About Harddrake"),
join ("", N("This is HardDrake, a Mandrake hardware configuration tool.\nVersion:"), " $harddrake::data::version\n",
- N("Author:"), " Thierry Vignaud <tvignaud\@mandrakesoft.com> \n\n" ,
+ N("Author:"), " Thierry Vignaud <tvignaud\@mandrakesoft.com> \n\n",
formatAlaTeX($license)));
}
}
@@ -132,7 +132,7 @@ sub detect {
if (exists $_->{bus} && $_->{bus} eq "PCI") {
my $i = $_;
$_->{bus_id} = join ':', map { if_($i->{$_} ne "65535", sprintf("%lx", $i->{$_})) } qw(vendor id subvendor subid);
- $_->{bus_location} = join ':', map { sprintf("%lx", $i->{$_} ) } qw(pci_bus pci_device pci_function);
+ $_->{bus_location} = join ':', map { sprintf("%lx", $i->{$_}) } qw(pci_bus pci_device pci_function);
}
# split description into manufacturer/description
($_->{Vendor}, $_->{description}) = split(/\|/,$_->{description}) if exists $_->{description};
@@ -148,7 +148,7 @@ sub detect {
} elsif ((exists $_->{id}) && ($_->{bus} ne 'PCI')) {
# SCSI detection incoherency:
my $i = $_;
- $_->{bus_location} = join ':', map { sprintf("%lx", $i->{$_} ) } qw(bus id);
+ $_->{bus_location} = join ':', map { sprintf("%lx", $i->{$_}) } qw(bus id);
}
if ($Ident eq "AUDIO") {
require harddrake::sound;
@@ -249,7 +249,7 @@ sub new {
if ($pid = fork()) {
$sig_id = $statusbar->push($statusbar->get_context_id("id"), N("Running \"%s\" ...", $configurator));
} else { exec($configurator) or die "$configurator missing\n" }
- }) ;
+ });
$config_button->show;
} else {
$text->backward_delete($text->get_point); # erase all previous text