From 8cd9c7cadbb8c35b618742691c525b7e39ebe435 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 11 May 2015 04:05:03 -0400
Subject: remember selected media (mga#12299)

---
 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 b671a5b18..0a2675065 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -983,6 +983,9 @@ sub g_auto_install {
     #- deep copy because we're modifying it below
     $o->{users} = $b_respect_privacy ? [] : [ @{$o->{users} || []} ];
 
+    # remember selected media:
+    local $o->{enabled_media} = [ map { $_->{name} } grep { !$_->{ignore} } @{$::o->{packages}{media}} ];
+
     my @user_info_to_remove = (
 	if_($b_respect_privacy, qw(realname pw)), 
 	qw(oldu oldg password password2),
-- 
cgit v1.2.1