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