This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Quiet a warning in pp_sys.c on AIX.
authorSteve Peters <steve@fisharerojo.org>
Sat, 21 Oct 2006 02:04:19 +0000 (02:04 +0000)
committerSteve Peters <steve@fisharerojo.org>
Sat, 21 Oct 2006 02:04:19 +0000 (02:04 +0000)
p4raw-id: //depot/perl@29068

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)
 
     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);
        if (effective) {
 #  ifdef PERL_EFF_ACCESS
            result = PERL_EFF_ACCESS(name, access_mode);