ingroup() is only used in doio.c.

Wrap gen_constant_list in #if defined(PERL_IN_OP_C)

p4raw-id: //depot/perl@34925

1 files changed, 1 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index 273832394d..46ef41e413 100644
--- a/doio.c
+++ b/doio.c
@@ -1944,7 +1944,7 @@ Perl_cando(pTHX_ Mode_t mode, bool effective, register const Stat_t *statbufp)
 #endif /* ! VMS */
 
 bool
-Perl_ingroup(pTHX_ Gid_t testgid, bool effective)
+S_ingroup(pTHX_ Gid_t testgid, bool effective)
 {
 #ifdef MACOS_TRADITIONAL
     /* This is simply not correct for AppleShare, but fix it yerself. */