summaryrefslogtreecommitdiffstats
path: root/perl-install/patch/patch-raidtab.pl
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-04-25 12:26:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-04-25 12:26:16 +0000
commit126777bc019a54afb4ec51299f2cf9d2841698aa (patch)
tree97f76e571902ead55ba138f1156a4b4f00b9b779 /perl-install/patch/patch-raidtab.pl
parentf1f67448efc714873378dfeb8279fae68054a90a (diff)
downloaddrakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.gz
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.bz2
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.xz
drakx-126777bc019a54afb4ec51299f2cf9d2841698aa.zip
re-sync after the big svn loss
Diffstat (limited to 'perl-install/patch/patch-raidtab.pl')
-rw-r--r--perl-install/patch/patch-raidtab.pl37
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}};
- }
-};