Changeset 1500 in ProjectBuilder for devel/lib/ProjectBuilder

Timestamp:

May 8, 2012, 4:12:21 AM (12 years ago)

Author:

Bruno Cornec

Message:

project-builder-r1426

Location:

devel/lib/ProjectBuilder

Files:

• Base.pm (modified) (4 diffs)
• Distribution.pm (modified) (2 diffs)
• Env.pm (added)
• VE.pm (added)
• Version.pm (modified) (1 diff)

devel/lib/ProjectBuilder/Base.pm

@@ -39 +39 @@
 
 our @ISA = qw(Exporter);
-our @EXPORT = qw(pb_mkdir_p pb_system pb_rm_rf pb_get_date pb_log pb_log_init pb_get_uri pb_get_content pb_set_content pb_display_file pb_syntax_init pb_syntax pb_temp_init pb_get_arch pb_check_requirements pb_check_req $pbdebug $pbLOG $pbdisplaytype $pblocale);
+our @EXPORT = qw(pb_mkdir_p pb_system pb_rm_rf pb_get_date pb_log pb_log_init pb_get_uri pb_get_content pb_set_content pb_display_file pb_syntax_init pb_syntax pb_temp_init pb_get_arch pb_get_osrelease pb_check_requirements pb_check_req $pbdebug $pbLOG $pbdisplaytype $pblocale);
 ($VERSION,$REVISION) = pb_version_init();
 
@@ -50 +50 @@
 =head1 DESCRIPTION
 
-This modules provides generic functions suitable for perl project development 
+This module provides generic functions suitable for perl project development 
 
 =head1 SYNOPSIS
@@ -384 +384 @@
 }
 
+=item B<pb_get_osrelease>
+
+This function returns the release of our operating system
+
+=cut
+
+sub pb_get_osrelease {
+
+# On linux can also use /proc/sys/kernel/osrelease
+my $rel = `uname -r`;
+chomp($rel);
+return($rel);
+}
+
+
 =item B<pb_get_arch>
 
@@ -467 +482 @@
 } else {
     pb_log(2,"OK\n");
-    return($found);
-}
+}
+return($found);
 }
 

devel/lib/ProjectBuilder/Distribution.pm

@@ -560 +560 @@
 
 This function gets the OS context passed as parameter and return the corresponding distribution hash
+If passed undef or "" then auto-detects
 
 =cut
@@ -569 +570 @@
 my $pbos;
 
-if (defined $os) {
+if ((defined $os) && ($os ne "")) {
     my ($name,$ver,$darch) = split(/-/,$os);
     pb_log(0,"Bad format for $os") if ((not defined $name) || (not defined $ver) || (not defined $darch)) ;

devel/lib/ProjectBuilder/Version.pm

@@ -19 +19 @@
 our @EXPORT = qw(pb_version_init);
 
-$VERSION = "0.11.3";
-$REVISION = "1307";
+$VERSION = "PBVER";
+$REVISION = "PBREV";
 
 sub pb_version_init {