2 * @path_consts;
for my $constant (@path_consts) {
- _check_and_report(sub { fpathconf($fd, shift) }, $constant,
+ SKIP: {
+ skip "pathconf($constant) hangs on Android", 2 if $constant eq '_PC_LINK_MAX' && $^O =~ /android/;
+ _check_and_report(sub { fpathconf($fd, shift) }, $constant,
"calling fpathconf($fd, $constant)");
+ }
}
POSIX::close($fd);
# testing pathconf() on a non-terminal file
for my $constant (@path_consts) {
+ SKIP: {
+ skip "pathconf($constant) hangs on Android", 2 if $constant eq '_PC_LINK_MAX' && $^O =~ /android/;
_check_and_report(sub { pathconf($testdir, shift) }, $constant,
"calling pathconf('$testdir', $constant)");
+ }
}
SKIP: {