From: Ben Morrow <ben@morrow.me.uk>
Date: Tue, 20 Jan 2009 08:34:52 +0000 (+0000)
Subject: I assume VMS doesn't have a superuser.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf5afd780534ba46e60ffbf35d4b2175510632bb;p=p5sagit%2Fp5-mst-13.2.git

I assume VMS doesn't have a superuser.
---

diff --git a/lib/File/stat.pm b/lib/File/stat.pm
index 55d6c8a..4f34bf5 100644
--- 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];