diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-03-29 00:46:23 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-29 13:38:48 +0000 |
| commit | be4e88b6b2af8677110eaacd60e6621c85ec165c (patch) | |
| tree | 60268617e9f84ca5ed7495ecc9fcce2c712f1730 /t/op | |
| parent | 4880edd6031a95381946ccf1b47bbb13704bb574 (diff) | |
| download | perl-be4e88b6b2af8677110eaacd60e6621c85ec165c.tar.gz | |
Quieting OS X
Message-ID: <20020329104622.GA9163@blackrider>
p4raw-id: //depot/perl@15594
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/stat.t | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index 9306d2ffa2..5b01821524 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -15,6 +15,7 @@ my $Perl = which_perl(); $Is_Amiga = $^O eq 'amigaos'; $Is_Cygwin = $^O eq 'cygwin'; +$Is_Darwin = $^O eq 'darwin'; $Is_Dos = $^O eq 'dos'; $Is_MPE = $^O eq 'mpeix'; $Is_MSWin32 = $^O eq 'MSWin32'; @@ -26,6 +27,8 @@ $Is_DGUX = $^O eq 'dgux'; $Is_Dosish = $Is_Dos || $Is_OS2 || $Is_MSWin32 || $Is_NetWare || $Is_Cygwin; +$Is_UFS = $Is_Darwin && (() = `df -t ufs .`) == 2; + my($DEV, $INO, $MODE, $NLINK, $UID, $GID, $RDEV, $SIZE, $ATIME, $MTIME, $CTIME, $BLKSIZE, $BLOCKS) = (0..12); @@ -100,10 +103,12 @@ SKIP: { # no ctime concept $ctime is ALWAYS == $mtime # expect netware to be the same ... skip "No ctime concept on this OS", 2 - if $Is_MSWin32; + if $Is_MSWin32 || + ($Is_Darwin && $Is_UFS); + if( !ok($mtime, 'hard link mtime') || !isnt($mtime, $ctime, 'hard link ctime != mtime') ) { - print <<DIAG; + print STDERR <<DIAG; # Check if you are on a tmpfs of some sort. Building in /tmp sometimes # has this problem. Also building on the ClearCase VOBS filesystem may # cause this failure. |