Changeset 74 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Distribution.pm
- Timestamp:
- Sep 1, 2007, 1:56:48 AM (17 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/ProjectBuilder/Distribution.pm
r73 r74 8 8 use strict; 9 9 10 sub distro_init {10 sub pb_distro_init { 11 11 12 12 my $ddir = shift || undef; … … 17 17 18 18 # 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)); 20 20 21 21 # There shold be unicity of names between ddir dfam and dtype … … 82 82 } 83 83 84 sub get_distro {84 sub pb_get_distro { 85 85 86 86 # Cf: http://linuxmafia.com/faq/Admin/release-files.html … … 173 173 while (($d,$r) = each %single_rel_files) { 174 174 if (-f "$base/$r" && !-l "$base/$r") { 175 my $tmp= get_content("$base/$r");175 my $tmp=pb_get_content("$base/$r"); 176 176 # Found the only possibility. 177 177 # Try to get version and return … … 191 191 # Found one possibility. 192 192 # Get all distros concerned by that file 193 my $tmp= get_content("$base/$r");193 my $tmp=pb_get_content("$base/$r"); 194 194 my $found = 0; 195 195 my $ptr = $distro_similar{$d}; … … 221 221 } 222 222 223 sub get_content { 223 # get content of a file in a variable 224 sub pb_get_content { 224 225 225 226 my $file=shift;
Note:
See TracChangeset
for help on using the changeset viewer.