From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 4 Nov 2005 11:36:24 +0000 (+0000)
Subject: PERL_EFF_ACCESS_[RWX]_OK can go.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=faee0e31635beba10b49968c70b82a3fef8c06bf;p=p5sagit%2Fp5-mst-13.2.git

PERL_EFF_ACCESS_[RWX]_OK can go.

p4raw-id: //depot/perl@25984
---

diff --git a/pp_sys.c b/pp_sys.c
index 2f0ba83..ff8254a 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -197,10 +197,7 @@ void setservent(int);
 void endservent(void);
 #endif
 
-#undef PERL_EFF_ACCESS_R_OK	/* EFFective uid/gid ACCESS R_OK */
-#undef PERL_EFF_ACCESS_W_OK
-#undef PERL_EFF_ACCESS_X_OK
-#undef PERL_EFF_ACCESS
+#undef PERL_EFF_ACCESS	/* EFFective uid/gid ACCESS */
 
 /* AIX 5.2 and below use mktime for localtime, and defines the edge case
  * for time 0x7fffffff to be valid only in UTC. AIX 5.3 provides localtime64
@@ -303,11 +300,7 @@ S_emulate_eaccess(pTHX_ const char* path, Mode_t mode)
 #   define PERL_EFF_ACCESS(p,f) (emulate_eaccess((p), (f)))
 #endif
 
-#if defined(PERL_EFF_ACCESS)
-#   define PERL_EFF_ACCESS_R_OK(p) (PERL_EFF_ACCESS((p), R_OK))
-#   define PERL_EFF_ACCESS_W_OK(p) (PERL_EFF_ACCESS((p), W_OK))
-#   define PERL_EFF_ACCESS_X_OK(p) (PERL_EFF_ACCESS((p), X_OK))
-#else
+#if !defined(PERL_EFF_ACCESS)
 /* With it or without it: anyway you get a warning: either that
    it is unused, or it is declared static and never defined.
  */
@@ -2963,9 +2956,9 @@ PP(pp_fteread)
     I32 result;
     dSP;
     STACKED_FTEST_CHECK;
-#ifdef PERL_EFF_ACCESS_R_OK
+#ifdef PERL_EFF_ACCESS
     if ((PL_op->op_private & OPpFT_ACCESS) && SvPOK(TOPs)) {
-	result = PERL_EFF_ACCESS_R_OK(POPpx);
+	result = PERL_EFF_ACCESS(POPpx, R_OK);
 	if (result == 0)
 	    RETPUSHYES;
 	if (result < 0)
@@ -2990,9 +2983,9 @@ PP(pp_ftewrite)
     I32 result;
     dSP;
     STACKED_FTEST_CHECK;
-#ifdef PERL_EFF_ACCESS_W_OK
+#ifdef PERL_EFF_ACCESS
     if ((PL_op->op_private & OPpFT_ACCESS) && SvPOK(TOPs)) {
-	result = PERL_EFF_ACCESS_W_OK(POPpx);
+	result = PERL_EFF_ACCESS(POPpx, W_OK);
 	if (result == 0)
 	    RETPUSHYES;
 	if (result < 0)
@@ -3017,9 +3010,9 @@ PP(pp_fteexec)
     I32 result;
     dSP;
     STACKED_FTEST_CHECK;
-#ifdef PERL_EFF_ACCESS_X_OK
+#ifdef PERL_EFF_ACCESS
     if ((PL_op->op_private & OPpFT_ACCESS) && SvPOK(TOPs)) {
-	result = PERL_EFF_ACCESS_X_OK(POPpx);
+	result = PERL_EFF_ACCESS(POPpx, X_OK);
 	if (result == 0)
 	    RETPUSHYES;
 	if (result < 0)