From d25032e126212e8d96144e2439dc1d0880a0e69b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 11 Jan 2001 11:51:44 +0000
Subject: (g_auto_install): deep copy of $o->{users} because we're modifying it

---
 perl-install/install_any.pm | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 9b018a478..64865e235 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -541,6 +541,9 @@ sub g_auto_install(;$) {
     local $o->{partitioning}{auto_allocate} = 1;
     local $o->{autoExitInstall} = 1;
 
+    #- deep copy because we're modifying it below
+    $o->{users} = [ @{$o->{users} || []} ];
+
     $_ = { %{$_ || {}} }, delete @$_{qw(oldu oldg password password2)} foreach $o->{superuser}, @{$o->{users} || []};
     
     output($f, 
-- 
cgit v1.2.1