summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-11-25 18:58:56 +0000
committerThierry Vignaud <tv@mandriva.org>2009-11-25 18:58:56 +0000
commit40828f2b19138c5b0fc6f7f7e5625f20881ead69 (patch)
tree8d5d17f3816e5f9e019c11eb85f869d446a789e1 /perl-install
parentb45350d4101df344ae530c1ddacb0f3d20eea0e1 (diff)
downloaddrakx-40828f2b19138c5b0fc6f7f7e5625f20881ead69.tar
drakx-40828f2b19138c5b0fc6f7f7e5625f20881ead69.tar.gz
drakx-40828f2b19138c5b0fc6f7f7e5625f20881ead69.tar.bz2
drakx-40828f2b19138c5b0fc6f7f7e5625f20881ead69.tar.xz
drakx-40828f2b19138c5b0fc6f7f7e5625f20881ead69.zip
factorize a string definition
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/harddrake211
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index ace758232..bbdf8a7d3 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -129,10 +129,11 @@ channel number, a target id and a logical unit number") ],
}
);
+my $identification = N("Identification");
my %groups = (
generic =>
{
- N("Identification") => [ qw(Vendor model description info media_type) ],
+ $identification => [ qw(Vendor model description info media_type) ],
N("Connection") => [ qw(bus pci_domain pci_bus pci_device pci_function pci_revision vendor id subvendor subid) ],
},
AUDIO =>
@@ -141,14 +142,14 @@ my %groups = (
},
CPU =>
{
- N("Identification") => [ qw(processor vendor_id), "model name", "cpu family", qw(model level stepping) ],
+ $identification => [ qw(processor vendor_id), "model name", "cpu family", qw(model level stepping) ],
N("Performances") => [ "cpu MHz", "cache size", "bogomips" ],
N("Bugs") => [ qw(fdiv_bug coma_bug f00f_bug hlt_bug) ],
N("FPU") => [ qw(fpu fpu_exception) ],
},
HARDDISK =>
{
- N("Identification") => [ qw(Vendor Model description info media_type) ],
+ $identification => [ qw(Vendor Model description info media_type) ],
N("Connection") => [ qw(bus channel lun id) ],
N("Bus identification") => [ qw(vendor id subvendor subid) ],
N("Device") => [ qw(device) ],
@@ -156,7 +157,7 @@ my %groups = (
},
MOUSE =>
{
- N("Identification") => [ qw(name type MOUSETYPE Protocol) ],
+ $identification => [ qw(name type MOUSETYPE Protocol) ],
N("Features") => [ qw(EmulateWheel nbuttons) ],
},
);
@@ -337,7 +338,7 @@ $tree->get_selection->signal_connect('changed' => sub {
member($field, map { @$_ } values %groups);
} keys %device_fields;
my @formated;
- foreach my $group (N("Identification"), grep { $_ ne N("Identification") } keys %groups) {
+ foreach my $group ($identification, grep { $_ ne $identification } keys %groups) {
my @fields = @{$groups{$group}};
# have we at least a member in that group?
next unless any { member($_, @fields) } @$grouped;