diff options
Diffstat (limited to 'perl-install/patch/patch-raidtab.pl')
| -rw-r--r-- | perl-install/patch/patch-raidtab.pl | 37 | 
1 files changed, 0 insertions, 37 deletions
| diff --git a/perl-install/patch/patch-raidtab.pl b/perl-install/patch/patch-raidtab.pl deleted file mode 100644 index de03a1b2a..000000000 --- a/perl-install/patch/patch-raidtab.pl +++ /dev/null @@ -1,37 +0,0 @@ -use detect_devices; -package detect_devices; -log::l("PATCHING"); - -*raidAutoStartRaidtab = sub { -    my (@parts) = @_; -    log::l("patched raidAutoStartRaidtab"); -    $::isInstall or return; -    require raid; -    #- faking a raidtab, it seems to be working :-))) -    #- (choosing any inactive md) -    raid::inactivate_all(); -    foreach (@parts) { -	my ($nb) = grep { !raid::is_active("md$_") } 0..7; -	output("/tmp/raidtab", "raiddev /dev/md$nb\n  device " . devices::make($_->{device}) . "\n"); -	run_program::run('raidstart', '-c', "/tmp/raidtab", devices::make("md$nb")); -    } -    unlink "/tmp/raidtab"; -}; - -use raid; -package raid; - -*prepare_prefixed = sub { -    my ($raids, $prefix) = @_; - -    log::l("patched prepare_prefixed"); - -    $raids or return; - -    &write($raids, "/etc/raidtab") if ! -e "/etc/raidtab"; -     -    eval { cp_af("/etc/raidtab", "$prefix/etc/raidtab") }; -    foreach (grep { $_ } @$raids) { -	devices::make("$prefix/dev/$_->{device}") foreach @{$_->{disks}}; -    } -}; | 
