Fix threaded builds (broken by change #31112)

[perl5.git] / proto.h

diff --git a/proto.h b/proto.h
index 85e1d4c..7cb0ce7 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -4197,7 +4197,7 @@ PERL_CALLCONV char*       Perl_my_atof2(pTHX_ const char *s, NV* value)
                        __attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV int      Perl_my_socketpair(int family, int type, int protocol, int fd[2]);
-PERL_CALLCONV int      Perl_my_dirfd(DIR* dir);
+PERL_CALLCONV int      Perl_my_dirfd(pTHX_ DIR* dir);
 #ifdef PERL_OLD_COPY_ON_WRITE
 PERL_CALLCONV SV*      Perl_sv_setsv_cow(pTHX_ SV* dsv, SV* ssv)
                        __attribute__nonnull__(pTHX_1)