diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-10-07 20:28:20 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-10-07 20:31:50 +0200 |
| commit | c7b2fb96dcace6e3cbac79dfe4c82984e1f7fd3d (patch) | |
| tree | 380cc203647f7b7f36fd70a3d6204bf4877f9331 | |
| parent | 1874162f037456b666aa88174a3a68546de0c4de (diff) | |
| download | perl-c7b2fb96dcace6e3cbac79dfe4c82984e1f7fd3d.tar.gz | |
Tru64: the cluster filesystem is special.
(It has non-POSIX interfaces and semantics which probably should
be left outside e.g. Cwd::realpath()).
| -rw-r--r-- | dist/ExtUtils-CBuilder/t/04-base.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/dist/ExtUtils-CBuilder/t/04-base.t b/dist/ExtUtils-CBuilder/t/04-base.t index beffe7f5c0..1acc3ead97 100644 --- a/dist/ExtUtils-CBuilder/t/04-base.t +++ b/dist/ExtUtils-CBuilder/t/04-base.t @@ -264,7 +264,13 @@ is_deeply( \%split_seen, \%exp, touch_file($exporter); $rv = $base->perl_src(); ok( -d $rv, "perl_src(): returned a directory" ); - is( uc($rv), uc(Cwd::realpath($subdir)), "perl_src(): identified directory" ); + my $rp = Cwd::realpath($subdir); + SKIP: { + if ($^O eq 'dec_osf' && $rp =~ m[^/cluster/members/]) { + skip "Tru64 cluster filesystem", 1; + } # SKIP + is( uc($rv), uc($rp), "perl_src(): identified directory" ); + } is( $capture, q{}, "perl_src(): no warning, as expected" ); chdir $cwd |