Changeset 22 for devel/pb/lib/distro.pm


Ignore:
Timestamp:
Jul 31, 2007, 1:11:01 PM (12 years ago)
Author:
bruno
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.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/lib/distro.pm

    r18 r22  
    77
    88use strict;
     9use LinuxDistribution qw (distribution_name distribution_version);
    910
    1011sub distro_init {
     
    1718
    1819# 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);
    2022
    2123# There shold be unicity of names between ddir dfam and dtype
     
    8183return($ddir, $dver, $dfam, $dtype, $dsuf);
    8284}
    83 
    84 sub distro_get {
    85 }
    86851;
Note: See TracChangeset for help on using the changeset viewer.