Fix threaded builds (broken by change #31112)

p4raw-link: @31112 on //depot/perl: 3497a01ff49c0a24f2db9e69c6bb89e36e940ed4

p4raw-id: //depot/perl@31115

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index 2ec39407ca..81551f6477 100644
--- a/util.c
+++ b/util.c
@@ -5808,7 +5808,7 @@ Perl_get_db_sub(pTHX_ SV **svp, CV *cv)
 }
 
 int
-Perl_my_dirfd(DIR * dir) {
+Perl_my_dirfd(pTHX_ DIR * dir) {
 
     /* Most dirfd implementations have problems when passed NULL. */
     if(!dir)