Changeset 74 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Distribution.pm

Timestamp:

Sep 1, 2007, 1:56:48 AM (17 years ago)

Author:

Bruno Cornec

Message:

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

File:

• devel/pb/lib/ProjectBuilder/Distribution.pm (moved) (moved from devel/pb/lib/ProjectBuilder/distro.pm ) (6 diffs)

devel/pb/lib/ProjectBuilder/Distribution.pm

@@ -8 +8 @@
 use strict;
 
-sub distro_init {
+sub pb_distro_init {
 
 my $ddir = shift || undef;
@@ -17 +17 @@
 
 # If we don't know which distribution we're on, then guess it
-($ddir,$dver) = get_distro() if ((not defined $ddir) || (not defined $dver));
+($ddir,$dver) = pb_get_distro() if ((not defined $ddir) || (not defined $dver));
 
 # There shold be unicity of names between ddir dfam and dtype
@@ -82 +82 @@
 }
 
-sub get_distro {
+sub pb_get_distro {
 
 # Cf: http://linuxmafia.com/faq/Admin/release-files.html
@@ -173 +173 @@
 while (($d,$r) = each %single_rel_files) {
     if (-f "$base/$r" && !-l "$base/$r") {
-        my $tmp=get_content("$base/$r");
+        my $tmp=pb_get_content("$base/$r");
         # Found the only possibility. 
         # Try to get version and return
@@ -191 +191 @@
         # Found one possibility. 
         # Get all distros concerned by that file
-        my $tmp=get_content("$base/$r");
+        my $tmp=pb_get_content("$base/$r");
         my $found = 0;
         my $ptr = $distro_similar{$d};
@@ -221 +221 @@
 }
 
-sub get_content {
+# get content of a file in a variable
+sub pb_get_content {
 
 my $file=shift;