Changeset 1500 in ProjectBuilder for devel/lib/ProjectBuilder/Base.pm
- Timestamp:
- May 8, 2012, 4:12:21 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/lib/ProjectBuilder/Base.pm
r1498 r1500 39 39 40 40 our @ISA = qw(Exporter); 41 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);41 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); 42 42 ($VERSION,$REVISION) = pb_version_init(); 43 43 … … 50 50 =head1 DESCRIPTION 51 51 52 This module sprovides generic functions suitable for perl project development52 This module provides generic functions suitable for perl project development 53 53 54 54 =head1 SYNOPSIS … … 384 384 } 385 385 386 =item B<pb_get_osrelease> 387 388 This function returns the release of our operating system 389 390 =cut 391 392 sub pb_get_osrelease { 393 394 # On linux can also use /proc/sys/kernel/osrelease 395 my $rel = `uname -r`; 396 chomp($rel); 397 return($rel); 398 } 399 400 386 401 =item B<pb_get_arch> 387 402 … … 467 482 } else { 468 483 pb_log(2,"OK\n"); 469 return($found); 470 } 484 } 485 return($found); 471 486 } 472 487
Note:
See TracChangeset
for help on using the changeset viewer.