summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/harddrake25
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 16ee620a0..17b5d702e 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -134,7 +134,10 @@ my %groups = (
},
);
-$groups{$_} = $groups{HARDDISK} foreach qw(BURNER CDROM DVDROM);
+foreach my $class (qw(BURNER CDROM DVDROM)) {
+ $groups{$class} = $groups{HARDDISK};
+ $fields{$class} = $fields{HARDDISK};
+}
my ($in, $pid, $w);