diff options
Diffstat (limited to 't/op/stat.t')
| -rwxr-xr-x | t/op/stat.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index 3cdfc233c9..89046c364b 100755 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -55,7 +55,7 @@ SKIP: { SKIP: { skip "mtime and ctime not reliable", 2 - if $Is_MSWin32 or $Is_NetWare or $Is_Cygwin or $Is_Dos; + if $Is_MSWin32 or $Is_NetWare or $Is_Cygwin or $Is_Dos or $Is_MacOS; ok( $mtime, 'mtime' ); is( $mtime, $ctime, 'mtime == ctime' ); @@ -242,6 +242,11 @@ SKIP: { $DEV =~ s{^.+?\s\..+?$}{}m; @DEV = grep { ! m{^\..+$} } @DEV; + # Irix ls -l marks sockets with 'S' while 's' is a 'XENIX semaphore'. + if ($^O eq 'irix') { + $DEV =~ s{^S(.+?)}{s$1}mg; + } + my $try = sub { my @c1 = eval qq[\$DEV =~ /^$_[0].*/mg]; my @c2 = eval qq[grep { $_[1] "/dev/\$_" } \@DEV]; |