--- perl/ext/POSIX/POSIX.xs#152~33896~	2008-05-21 02:18:00.000000000 -0700

+++ perl/ext/POSIX/POSIX.xs	2008-05-21 03:31:32.000000000 -0700

@@ -649,26 +649,37 @@

 int

 WEXITSTATUS(status)

 	int status

-

-int

-WIFEXITED(status)

-	int status

-

-int

-WIFSIGNALED(status)

-	int status

-

-int

-WIFSTOPPED(status)

-	int status

-

-int

-WSTOPSIG(status)

-	int status

-

-int

-WTERMSIG(status)

-	int status

+    ALIAS:

+	POSIX::WIFEXITED = 1

+	POSIX::WIFSIGNALED = 2

+	POSIX::WIFSTOPPED = 3

+	POSIX::WSTOPSIG = 4

+	POSIX::WTERMSIG = 5

+    CODE:

+	switch(ix) {

+	case 0:

+	    RETVAL = WEXITSTATUS(status);

+	    break;

+	case 1:

+	    RETVAL = WIFEXITED(status);

+	    break;

+	case 2:

+	    RETVAL = WIFSIGNALED(status);

+	    break;

+	case 3:

+	    RETVAL = WIFSTOPPED(status);

+	    break;

+	case 4:

+	    RETVAL = WSTOPSIG(status);

+	    break;

+	case 5:

+	    RETVAL = WTERMSIG(status);

+	    break;

+	default:

+	    Perl_croak(aTHX_ "Illegal alias %d for POSIX::W*", ix);

+	}

+    OUTPUT:

+	RETVAL

 int

 isalnum(charstring)