Changeset 1400

Timestamp:

02/03/12 00:16:58 (16 months ago)

Author:

bruno

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>