Changeset 1400 in ProjectBuilder for devel

Timestamp:

Feb 3, 2012, 12:16:58 AM (13 years ago)

Author:

Bruno Cornec

Message:

r4485@cabanilles: bruno | 2012-01-31 17:20:04 +0100

• Provides a new pb_get_osrelease function similar to uname -r

File:

• devel/pb-modules/lib/ProjectBuilder/Base.pm (modified) (3 diffs)

devel/pb-modules/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
+return(chomp(`uname -r`));
+}
+
+
 =item B<pb_get_arch>