Ignore:
Timestamp:
Sep 1, 2007, 1:56:48 AM (13 years ago)
Author:
Bruno Cornec
Message:

Big renaming to be more perlish
Single module Base contains all routines except when detaching makes sense

File:
1 moved

Legend:

Unmodified
Added
Removed
  • devel/pb/lib/ProjectBuilder/Distribution.pm

    r73 r74  
    88use strict;
    99
    10 sub distro_init {
     10sub pb_distro_init {
    1111
    1212my $ddir = shift || undef;
     
    1717
    1818# If we don't know which distribution we're on, then guess it
    19 ($ddir,$dver) = get_distro() if ((not defined $ddir) || (not defined $dver));
     19($ddir,$dver) = pb_get_distro() if ((not defined $ddir) || (not defined $dver));
    2020
    2121# There shold be unicity of names between ddir dfam and dtype
     
    8282}
    8383
    84 sub get_distro {
     84sub pb_get_distro {
    8585
    8686# Cf: http://linuxmafia.com/faq/Admin/release-files.html
     
    173173while (($d,$r) = each %single_rel_files) {
    174174    if (-f "$base/$r" && !-l "$base/$r") {
    175         my $tmp=get_content("$base/$r");
     175        my $tmp=pb_get_content("$base/$r");
    176176        # Found the only possibility.
    177177        # Try to get version and return
     
    191191        # Found one possibility.
    192192        # Get all distros concerned by that file
    193         my $tmp=get_content("$base/$r");
     193        my $tmp=pb_get_content("$base/$r");
    194194        my $found = 0;
    195195        my $ptr = $distro_similar{$d};
     
    221221}
    222222
    223 sub get_content {
     223# get content of a file in a variable
     224sub pb_get_content {
    224225
    225226my $file=shift;
Note: See TracChangeset for help on using the changeset viewer.