diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-11-28 15:07:59 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-11-28 15:07:59 +0000 |
| commit | 3459f84610547929a214786e964f2518ab211aea (patch) | |
| tree | f2e64377974452b810ce1e4b4efd6db5bef6fb12 /perl-install | |
| parent | 096be6385ba2616de501dc69381edca09252471d (diff) | |
| download | drakx-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.pm | 1 |
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); |