From c9fcf2aed851409a227b66ee46fae5537380bfb4 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Wed, 9 Jul 2014 13:14:45 +0200
Subject: Fixed a warning for undef value

---
 lib/AdminPanel/Rpmdragora/open_db.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib/AdminPanel/Rpmdragora')

diff --git a/lib/AdminPanel/Rpmdragora/open_db.pm b/lib/AdminPanel/Rpmdragora/open_db.pm
index e7956967..dafe0768 100644
--- a/lib/AdminPanel/Rpmdragora/open_db.pm
+++ b/lib/AdminPanel/Rpmdragora/open_db.pm
@@ -120,8 +120,9 @@ sub fast_open_urpmi_db() {
 sub is_it_a_devel_distro() {
     state $res;
     return $res if defined $res;
-    
-    my $path = $::rpmdragora_options{'urpmi-root'}[0] . '/etc/product.id';
+
+    my $path = '/etc/product.id';
+    $path = $::rpmdragora_options{'urpmi-root'}[0] . $path if defined($::rpmdragora_options{'urpmi-root'}[0]);
     $res = common::parse_LDAP_namespace_structure(cat_($path))->{branch} eq 'Devel';
     return $res;
 }
-- 
cgit v1.2.1