summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-11-28 15:07:59 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-11-28 15:07:59 +0000
commit3459f84610547929a214786e964f2518ab211aea (patch)
treef2e64377974452b810ce1e4b4efd6db5bef6fb12 /perl-install
parent096be6385ba2616de501dc69381edca09252471d (diff)
downloaddrakx-backup-do-not-use-3459f84610547929a214786e964f2518ab211aea.tar
drakx-backup-do-not-use-3459f84610547929a214786e964f2518ab211aea.tar.gz
drakx-backup-do-not-use-3459f84610547929a214786e964f2518ab211aea.tar.bz2
drakx-backup-do-not-use-3459f84610547929a214786e964f2518ab211aea.tar.xz
drakx-backup-do-not-use-3459f84610547929a214786e964f2518ab211aea.zip
testing aware
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/raid.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index 1cc1720be..55c542e31 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -103,6 +103,7 @@ sub update {
sub write {
my ($raids, $file) = @_;
+ return if $::testing;
local $\ = "\n";
local *F;
open F, ">$file" or die N("Can't write file %s", $file);