Changeset 22 in ProjectBuilder for devel/pb/lib
- Timestamp:
- Jul 31, 2007, 1:11:01 PM (17 years ago)
- Location:
- devel/pb/lib
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/distro.pm
r18 r22 7 7 8 8 use strict; 9 use LinuxDistribution qw (distribution_name distribution_version); 9 10 10 11 sub distro_init { … … 17 18 18 19 # If we don't know which distribution we're on, then guess it 19 ($ddir, $dver) = distro_get() if ((not defined $ddir) || (not defined $dver)); 20 $ddir = distribution_name() if (not defined $ddir); 21 $dver = distribution_version() if (not defined $dver); 20 22 21 23 # There shold be unicity of names between ddir dfam and dtype … … 81 83 return($ddir, $dver, $dfam, $dtype, $dsuf); 82 84 } 83 84 sub distro_get {85 }86 85 1; -
devel/pb/lib/pb.pm
r21 r22 16 16 my $trace; 17 17 18 if ($debug > =0) {18 if ($debug > 0) { 19 19 $trace = 1; 20 20 } else {
Note:
See TracChangeset
for help on using the changeset viewer.