From 5de74f5ec6dc3aaf9cfd204be0ec4ab366089d91 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Buclin?= <LpSolit@gmail.com>
Date: Fri, 5 May 2017 22:58:56 +0200
Subject: Make sure 'supplmedia' is defined before using it (mga#20484)

---
 perl-install/install/media.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 17d941b1d..9f5fb34c1 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -648,7 +648,7 @@ sub get_media_cfg {
         die "media.cfg not found";
     }
 
-    my $suppl_CDs = exists $o->{supplmedia} ? $o->{supplmedia} : $distribconf->{suppl} || 0;
+    my $suppl_CDs = defined $o->{supplmedia} ? $o->{supplmedia} : $distribconf->{suppl} || 0;
     my $deselectionAllowed = $distribconf->{askmedia} || $o->{askmedia} || 0;
 
     log::l(Data::Dumper->Dump([ $phys_medium ], [ 'phys_medium' ]));
-- 
cgit v1.2.1