Change 14347 by jhi@alpha on 2002/01/19 17:57:08
Subject: [PATCH] ext/SDBM_File/sdbm.t -- VOS fix
From: [EMAIL PROTECTED]
Date: Sat, 19 Jan 02 13:15 est
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/ext/SDBM_File/sdbm.t#4 edit
Differences ...
==== //depot/perl/ext/SDBM_File/sdbm.t#4 (text) ====
Index: perl/ext/SDBM_File/sdbm.t
--- perl/ext/SDBM_File/sdbm.t.~1~ Sat Jan 19 11:00:06 2002
+++ perl/ext/SDBM_File/sdbm.t Sat Jan 19 11:00:06 2002
@@ -46,7 +46,7 @@
else {
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
$blksize,$blocks) = stat($Dfile);
- print (($mode & 0777) == 0640 ? "ok 2\n" : "not ok 2\n");
+ print (($mode & 0777) == ($^O eq 'vos' ? 0750 : 0640) ? "ok 2\n" : "not ok 2\n");
}
my $i = 0;
while (my ($key,$value) = each(%h)) {
End of Patch.
