S_find_beginning is only called from one place, so by hoisting the

[p5sagit/p5-mst-13.2.git] / proto.h

diff --git a/proto.h b/proto.h
index f445055..fc0186a 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -3167,7 +3167,7 @@ PERL_CALLCONV void        Perl_Slab_Free(pTHX_ void *op)
 #endif
 
 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
-STATIC void    S_find_beginning(pTHX_ int suidscript);
+STATIC void    S_find_beginning(pTHX);
 STATIC void    S_forbid_setid(pTHX_ char flag, int suidscript);
 STATIC void    S_incpush(pTHX_ const char *dir, bool addsubdirs, bool addoldvers, bool usesep, bool canrelocate);
 STATIC void    S_init_interp(pTHX);