diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2007-01-17 12:22:32 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2007-01-17 12:22:32 +0000 |
commit | 26ffb398774c08032fa8bb976bc62ae9853010a5 (patch) | |
tree | 0c978c5ee61101190ff75ffca1cc1ef102d39d61 | |
parent | 051f7327086ac05f47fb06ee0ef4d129c3432263 (diff) | |
download | ATCD-26ffb398774c08032fa8bb976bc62ae9853010a5.tar.gz |
ChangeLogTag: Wed Jan 17 12:20:57 UTC 2007 Chad Elliott <elliott_c@ociweb.com>
-rw-r--r-- | ACE/ChangeLog | 7 | ||||
-rw-r--r-- | ACE/bin/PerlACE/Run_Test.pm | 25 |
2 files changed, 32 insertions, 0 deletions
diff --git a/ACE/ChangeLog b/ACE/ChangeLog index a10fe68b2a3..431cbb5e132 100644 --- a/ACE/ChangeLog +++ b/ACE/ChangeLog @@ -1,3 +1,10 @@ +Wed Jan 17 12:20:57 UTC 2007 Chad Elliott <elliott_c@ociweb.com> + + * bin/PerlACE/Run_Test.pm: + + Added a function to check for the privileges required to set + thread priority on HP-UX. For all other platforms, it is a noop. + Tue Jan 16 21:00:20 UTC 2007 Iliyan Jeliazkov <iliyan@ociweb.com> * ace/Service_Gestalt.cpp: diff --git a/ACE/bin/PerlACE/Run_Test.pm b/ACE/bin/PerlACE/Run_Test.pm index a6d1253f0e9..8138887c377 100644 --- a/ACE/bin/PerlACE/Run_Test.pm +++ b/ACE/bin/PerlACE/Run_Test.pm @@ -190,6 +190,31 @@ sub add_lib_path { } +sub check_privilege_group { + if ($^O eq 'hpux') { + my($access) = 'RTSCHED'; + my($status) = 0; + my($getprivgrp) = '/bin/getprivgrp'; + + if (-x $getprivgrp) { + if (open(GPG, "$getprivgrp |")) { + while(<GPG>) { + if (index($_, $access) >= 0) { + $status = 1; + } + } + close(GPG); + } + } + + if (!$status) { + print STDERR "WARNING: You must have $access privileges to run this test.\n", + " Run \"man 1m setprivgrp\" for more information.\n"; + exit(0); + } + } +} + $sleeptime = 5; 1; |