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 (file)
--- 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);