I assume VMS doesn't have a superuser.

diff --git a/lib/File/stat.pm b/lib/File/stat.pm
index 55d6c8a..4f34bf5 100644 (file)
--- a/lib/File/stat.pm
+++ b/lib/File/stat.pm
@@ -87,7 +87,7 @@ else {
         my ($s, $mode, $eff) = @_;
         my $uid = $eff ? $> : $<;
 
-        $uid == 0                   and return 1;
+        $^O ne "VMS" and $uid == 0  and return 1;
 
         my ($stmode, $stuid, $stgid) = @$s[2,4,5];