This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
S_emulate_eaccess() does return a value
authorSteve Peters <steve@fisharerojo.org>
Tue, 14 Jun 2005 14:30:52 +0000 (09:30 -0500)
committerNicholas Clark <nick@ccl4.org>
Tue, 14 Jun 2005 19:28:28 +0000 (19:28 +0000)
Message-ID: <20050614193052.GA1898@mccoy.peters.homeunix.org>
Date: Tue, 14 Jun 2005 14:30:52 -0500

p4raw-id: //depot/perl@24845

embed.fnc
proto.h

index cdcfceb..1a4a8fe 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1143,7 +1143,7 @@ sR        |SV*    |method_common  |NN SV* meth|U32* hashp
 
 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
 s      |OP*    |doform         |NN CV *cv|NN GV *gv|NN OP *retop
-sr     |int    |emulate_eaccess|NN const char* path|Mode_t mode
+s      |int    |emulate_eaccess|NN const char* path|Mode_t mode
 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
 sR     |int    |dooneliner     |NN const char *cmd|NN const char *filename
 #  endif
diff --git a/proto.h b/proto.h
index e7d4c63..9c9e911 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2236,7 +2236,6 @@ STATIC OP*        S_doform(pTHX_ CV *cv, GV *gv, OP *retop)
                        __attribute__nonnull__(pTHX_3);
 
 STATIC int     S_emulate_eaccess(pTHX_ const char* path, Mode_t mode)
-                       __attribute__noreturn__
                        __attribute__nonnull__(pTHX_1);
 
 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)