aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAngelo Naselli <anaselli@linux.it>2014-07-09 13:14:45 +0200
committerAngelo Naselli <anaselli@linux.it>2014-07-09 13:14:45 +0200
commitc9fcf2aed851409a227b66ee46fae5537380bfb4 (patch)
tree08f45b3adcaec00e07e4c3d93a0b4a5e481cf60e
parent3b17fc690db8aab9761c44991ad6935b94fc00dc (diff)
downloadmanatools-c9fcf2aed851409a227b66ee46fae5537380bfb4.tar
manatools-c9fcf2aed851409a227b66ee46fae5537380bfb4.tar.gz
manatools-c9fcf2aed851409a227b66ee46fae5537380bfb4.tar.bz2
manatools-c9fcf2aed851409a227b66ee46fae5537380bfb4.tar.xz
manatools-c9fcf2aed851409a227b66ee46fae5537380bfb4.zip
Fixed a warning for undef value
-rw-r--r--lib/AdminPanel/Rpmdragora/open_db.pm5
1 files changed, 3 insertions, 2 deletions
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;
}