t/lib/warnings/pp_sys: Add skips in case telldir is not available

1 files changed, 22 insertions, 0 deletions

diff --git a/t/lib/warnings/pp_sys b/t/lib/warnings/pp_sys
index 2e81916804..0891a393be 100644
--- a/t/lib/warnings/pp_sys
+++ b/t/lib/warnings/pp_sys
@@ -806,6 +806,17 @@ Opening filehandle ＦＯＯ also as a directory at - line 9.
 Opening filehandle $ｆｏｏ also as a directory at - line 10.
 ########
 # pp_sys.c [pp_*dir]
+use Config ;
+BEGIN {
+    if ( ! $Config{d_telldir}) {
+        print <<EOM ;
+SKIPPED
+# telldir not present
+EOM
+        exit
+    }
+}
+#line 2
 use warnings 'io';
 opendir FOO, ".";
 opendir $foo, ".";
@@ -838,6 +849,17 @@ closedir() attempted on invalid dirhandle $foo at - line 18.
 ########
 
 # pp_sys.c [pp_*dir]
+use Config ;
+BEGIN {
+    if ( ! $Config{d_telldir}) {
+        print <<EOM ;
+SKIPPED
+# telldir not present
+EOM
+        exit
+    }
+}
+#line 3
 use utf8;
 use open qw( :utf8 :std );
 use warnings 'io';