[perl #57920] [PATCH] Suggestion for Parrot Configure test of AIO

[James Keenan via RT]

On Tue Sep 09 18:22:30 2008, [EMAIL PROTECTED] wrote:

> 
> I extracted the attached patch from email text and applied it in r30946.


For some reason, the first attachment -- Andy's patch -- didn't get
attached.  Trying again.

diff -r -u parrot-current/config/auto/aio/aio.in 
parrot-andy/config/auto/aio/aio.in
--- parrot-current/config/auto/aio/aio.in       2008-09-08 08:38:49.000000000 
-0400
+++ parrot-andy/config/auto/aio/aio.in  2008-09-09 07:45:03.000000000 -0400
@@ -36,14 +36,7 @@
     int i = 42;
     int cnt = 4;
 
-    /* For internal use, we usually use
-          SIGRTMIN + argv[1].  
-       Usually, that's set to
-          SIGRTMIN + 1
-       by the calling program.
-    */
-    my_sig = SIGRTMIN + atoi(argv[1]);
-    printf("SIGRTMIN=%d SIGRTMAX=%d\n", SIGRTMIN, SIGRTMAX);
+    my_sig = SIGUSR1;
 
     fd = open("MANIFEST", O_RDONLY);
     if (fd < 0)
diff -r -u parrot-svn/config/auto/aio.pm parrot-andy/config/auto/aio.pm
--- parrot-svn/config/auto/aio.pm       2008-09-08 08:38:49.000000000 -0400
+++ parrot-andy/config/auto/aio.pm      2008-09-09 07:46:14.000000000 -0400
@@ -49,14 +49,13 @@
 
     my $errormsg = _first_probe_for_aio($conf, $verbose);
     if ( ! $errormsg ) {
-        my $test = $conf->cc_run(1);  # Use signal RTMIN + 1
+        my $test = $conf->cc_run();
 
         # if the test is failing with sigaction err
         # we should repeat it with a different signal number
         # This is currently not implemented.
         if (
-            $test =~ /SIGRTMIN=(\d+)\sSIGRTMAX=(\d+)\n
-                INFO=42\n
+            $test =~ /INFO=42\n
                 ok/x
             )
         {
@@ -66,8 +65,6 @@
             $conf->data->set(
                 aio        => 'define',
                 HAS_AIO    => 1,
-                D_SIGRTMIN => $1,
-                D_SIGRTMAX => $2,
             );
         }
         else {