diff options
| author | Tony Cook <tony@develop-help.com> | 2014-01-30 11:13:41 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-01-30 11:18:43 +1100 |
| commit | 291b9f1d67b97a9ba635385d81f6538739be3f55 (patch) | |
| tree | 92335c75a9a7ac7543f7d58faad9820d7f3e8045 /t/x2p | |
| parent | 1d958db20afb78823396dfee8e55ed9c90a0e548 (diff) | |
| download | perl-291b9f1d67b97a9ba635385d81f6538739be3f55.tar.gz | |
[perl #121104] avoid using a less sane find(1)
Diffstat (limited to 't/x2p')
| -rw-r--r-- | t/x2p/find2perl.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/x2p/find2perl.t b/t/x2p/find2perl.t index a057d65075..f0dfa03929 100644 --- a/t/x2p/find2perl.t +++ b/t/x2p/find2perl.t @@ -102,7 +102,8 @@ for my $spec (@test_files) { } # do we have a vaguely sane find(1)? -my @files = sort `find '$tmpdir' -name 'abc' -o -name 'acc'`; +# BusyBox find is non-POSIX - it doesn't have -links +my @files = sort `find '$tmpdir' '(' -name 'abc' -o -name 'acc' ')' -a -links +0`; @files == 2 && $files[0] =~ /\babc\n\z/ && $files[1] =~ /\bacc\n\z/ or skip_all("doesn't appear to be a sane find(1)"); |