sv.c, Perl_dirp_dup: Skip the fchdir sections if telldir and seekdir are not defined

diff --git a/sv.c b/sv.c
index b94e0b6..355d60c 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11819,7 +11819,7 @@ Perl_dirp_dup(pTHX_ DIR *const dp, CLONE_PARAMS *const param)
 {
     DIR *ret;
 
-#ifdef HAS_FCHDIR
+#if defined(HAS_FCHDIR) && defined(HAS_TELLDIR) && defined(HAS_SEEKDIR)
     int rc = 0;
     DIR *pwd;
     const Direntry_t *dirent;
@@ -11840,7 +11840,7 @@ Perl_dirp_dup(pTHX_ DIR *const dp, CLONE_PARAMS *const param)
     if (ret)
        return ret;
 
-#ifdef HAS_FCHDIR
+#if defined(HAS_FCHDIR) && defined(HAS_TELLDIR) && defined(HAS_SEEKDIR)
 
     PERL_UNUSED_ARG(param);