Changeset 22 in ProjectBuilder for devel/pb/lib

Timestamp:

Jul 31, 2007, 1:11:01 PM (17 years ago)

Author:

Bruno Cornec

Message:

Begin to work on pkg2build
Cope the module Linux::Distribution in the project as it's not packages for my distro
Will make delivery much easier.

Location:

devel/pb/lib

Files:

• LinuxDistribution.pm (added)
• distro.pm (modified) (3 diffs)
• pb.pm (modified) (1 diff)

devel/pb/lib/distro.pm

@@ -7 +7 @@
 
 use strict;
+use LinuxDistribution qw (distribution_name distribution_version);
 
 sub distro_init {
@@ -17 +18 @@
 
 # If we don't know which distribution we're on, then guess it
-($ddir, $dver) = distro_get() if ((not defined $ddir) || (not defined $dver));
+$ddir = distribution_name() if (not defined $ddir);
+$dver = distribution_version() if (not defined $dver);
 
 # There shold be unicity of names between ddir dfam and dtype
@@ -81 +83 @@
 return($ddir, $dver, $dfam, $dtype, $dsuf);
 }
-
-sub distro_get {
-}
 1;

devel/pb/lib/pb.pm

@@ -16 +16 @@
 my $trace;
 
-if ($debug >= 0) {
+if ($debug > 0) {
     $trace = 1;
 } else {