ChangeLogTag: Wed Jan 17 12:20:57 UTC 2007 Chad Elliott <elliott_c@ociweb.com>

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;