From 40828f2b19138c5b0fc6f7f7e5625f20881ead69 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 25 Nov 2009 18:58:56 +0000
Subject: factorize a string definition

---
 perl-install/standalone/harddrake2 | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'perl-install/standalone')

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;
-- 
cgit v1.2.1