Missing static storage class for some new static functions

[perl5.git] / pad.c

diff --git a/pad.c b/pad.c
index bae83f4..fdf4402 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -560,7 +560,7 @@ C<is_our> indicates that the name to check is an 'our' declaration
 =cut
 */
 
-void
+STATIC void
 S_pad_check_dup(pTHX_ SV *name, const U32 flags, const HV *ourstash)
 {
     dVAR;