diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2013-05-17 21:56:00 -0300 |
|---|---|---|
| committer | Brian Fraser <fraserbn@gmail.com> | 2014-01-18 12:15:28 -0300 |
| commit | 05fc2f9f4339d5d042aa53504a2b1a549d42ffb6 (patch) | |
| tree | b9993322cba8cd88497f80f86501b8e7729092f8 /t/op/threads-dirh.t | |
| parent | bc5c48ae97013bb36885d263ec77cafe7d5f45d8 (diff) | |
| download | perl-05fc2f9f4339d5d042aa53504a2b1a549d42ffb6.tar.gz | |
t/op/threads-dirh.t: Only test telldir and seekdir if they are available
Diffstat (limited to 't/op/threads-dirh.t')
| -rw-r--r-- | t/op/threads-dirh.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/op/threads-dirh.t b/t/op/threads-dirh.t index b481992092..9bd02d1852 100644 --- a/t/op/threads-dirh.t +++ b/t/op/threads-dirh.t @@ -33,6 +33,8 @@ fresh_perl_is <<'# this is no comment', 'ok', {}, 'crash when duping dirh'; my $dir; SKIP: { + skip "telldir or seekdir not defined on this platform", 5 + if !$Config::Config{d_telldir} || !$Config::Config{d_seekdir}; my $skip = sub { chdir($dir); chdir updir; |