From: Steve Peters <steve@fisharerojo.org>
Date: Sat, 21 Oct 2006 02:04:19 +0000 (+0000)
Subject: Quiet a warning in pp_sys.c on AIX.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c2f35abb7961b572c45e5e167bb72553908228d;p=p5sagit%2Fp5-mst-13.2.git

Quiet a warning in pp_sys.c on AIX.

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

diff --git a/pp_sys.c b/pp_sys.c
index cdc9385..e71eecd 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3011,7 +3011,7 @@ PP(pp_ftrread)
 
     if (use_access) {
 #if defined(HAS_ACCESS) || defined (PERL_EFF_ACCESS)
-	const char *const name = POPpx;
+	const char *name = POPpx;
 	if (effective) {
 #  ifdef PERL_EFF_ACCESS
 	    result = PERL_EFF_ACCESS(name, access_mode);