(is_it_a_devel_distro) introduce it in order to check whether the

distro is 'cooker' or not

1 files changed, 7 insertions, 0 deletions

diff --git a/Rpmdrake/open_db.pm b/Rpmdrake/open_db.pm
index 565559e1..22f77ba4 100644
--- a/Rpmdrake/open_db.pm
+++ b/Rpmdrake/open_db.pm
@@ -106,6 +106,13 @@ sub fast_open_urpmi_db() {
     $urpm;
 }
 
+sub is_it_a_devel_distro {
+    state $res;
+    return $res if defined $res;
+    $res = common::parse_LDAP_namespace_structure(cat_('/etc/product.id'))->{branch} eq 'Devel';
+    return $res;
+}
+
 sub get_inactive_backport_media {
     my ($urpm) = @_;
     map { $_->{name} } grep { $_->{ignore} && $_->{name} =~ /backport/i && $_->{name} !~ /debug|sources/i } @{$urpm->{media}};