Changeset 423 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Distribution.pm

Timestamp:

May 3, 2008, 1:03:24 AM (16 years ago)

Author:

Bruno Cornec

Message:

• Improved pbdistrocheck to support -v flags
• Fix Ubuntu issue on distribution detection
• some more pb_log added

File:

• devel/pb-modules/lib/ProjectBuilder/Distribution.pm (modified) (5 diffs)

devel/pb-modules/lib/ProjectBuilder/Distribution.pm

@@ -9 +9 @@
 
 use strict;
+use Data::Dumper;
 use ProjectBuilder::Base;
 
@@ -221 +222 @@
     'suse'              => ['suse', 'sles', 'opensuse'],
     'redhat'            => ['redhat', 'rhel', 'centos', 'mandrake', 'vmware'],
-    'lsb'               => ['ubuntu', 'debian', 'lsb'],
+    'lsb'               => ['ubuntu', 'lsb'],
     );
 
@@ -241 +242 @@
     'opensuse'              => 'openSUSE (\d.+) \(',
     'lsb'                   => '.*[^Ubunt].*\nDISTRIB_RELEASE=(.+)',
-# Ubuntu 6.06 includes a /etc/debian_version file that needs to be 
-# renamed to /etc/debian_version.sav as there is no way to distinguish
-# Ubuntu 6.06 from debian testing otherwise
-# Same is true for Ubuntu 7.10 :-(
+# Ubuntu includes a /etc/debian_version file that cretaes an ambiguity with debian
+# So we need to look at distros in reverse alphabetic order to treat ubuntu always first
     'ubuntu'                => '.*Ubuntu.*\nDISTRIB_RELEASE=(.+)',
     'debian'                => '(.+)',
@@ -274 +273 @@
 }
 
-while (($d,$r) = each %ambiguous_rel_files) {
-    if (-f "$base/$r" && !-l "$base/$r"){
+# Now look at ambiguous files
+# Ubuntu includes a /etc/debian_version file that creates an ambiguity with debian
+# So we need to look at distros in reverse alphabetic order to treat ubuntu always first via lsb
+foreach $d (reverse keys %ambiguous_rel_files) {
+    $r = $ambiguous_rel_files{$d};
+    if (-f "$base/$r" && !-l "$base/$r") {
         # Found one possibility. 
         # Get all distros concerned by that file
@@ -281 +284 @@
         my $found = 0;
         my $ptr = $distro_similar{$d};
-        #pb_log(2,$LOG "amb: ".Dumper($ptr)."\n" if ($debug >= 1);
+        pb_log(2,"amb: ".Dumper($ptr)."\n");
         $release = "unknown";
         foreach my $dd (@$ptr) {
-            #pb_log(2,$LOG "check $dd\n" if ($debug >= 1);
+            pb_log(2,"check $dd\n");
             # Try to check pattern
             if (defined $distro_match{$dd}) {
-                #pb_log(2,$LOG "cmp: $distro_match{$dd} - vs - $tmp\n" if ($debug >= 1);
+                pb_log(2,"cmp: $distro_match{$dd} - vs - $tmp\n");
                 ($release) = $tmp =~ m/$distro_match{$dd}/m;
                 if ((defined $release) && ($release ne "unknown")) {