From 3459f84610547929a214786e964f2518ab211aea Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 28 Nov 2002 15:07:59 +0000
Subject: testing aware

---
 perl-install/raid.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/raid.pm')

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);
-- 
cgit v1.2.1