Changeset 1500 in ProjectBuilder for devel/lib/ProjectBuilder/Base.pm

Timestamp:

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

Author:

Bruno Cornec

Message:

project-builder-r1426

File:

• devel/lib/ProjectBuilder/Base.pm (modified) (4 diffs)

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);
 }