This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip stat.t readability test on VMS.
[perl5.git] / t / op / stat.t
index ee6ea47..af1fa5e 100644 (file)
@@ -525,6 +525,7 @@ SKIP: {
     SKIP: {
        skip "No lstat", 1 unless $Config{d_lstat};
        skip "uid=0", 1 unless $<&&$>;
+       skip "Readable by group/other means readable by me", 1 if $^O eq 'VMS';
        lstat($tmpfile);
        -T _;
        ok(eval { lstat _ },