diff options
author | Paul Green <Paul.Green@stratus.com> | 2013-03-27 12:17:08 -0400 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-06-03 20:30:29 -0700 |
commit | 436a99448b59f547be9711de2eeea7dab9abcbc4 (patch) | |
tree | 349d0edf084418a3d6b3499457ce33fe50242e1f /lib/AnyDBM_File.t | |
parent | 28f6649022f8901bbb00e1c2c0befaf1bfd21c2b (diff) | |
download | perl-436a99448b59f547be9711de2eeea7dab9abcbc4.tar.gz |
remove an obsolete special case for VOS handling of permissions in AnyDBM_File.t
Diffstat (limited to 'lib/AnyDBM_File.t')
-rw-r--r-- | lib/AnyDBM_File.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/AnyDBM_File.t b/lib/AnyDBM_File.t index 63fb2d8fb9..d061abad25 100644 --- a/lib/AnyDBM_File.t +++ b/lib/AnyDBM_File.t @@ -35,7 +35,7 @@ SKIP: if $Is_Dosish; ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime, $blksize,$blocks) = stat($Dfile); - ok(($mode & 0777) == ($^O eq 'vos' ? 0750 : 0640) , "File permissions"); + ok(($mode & 0777) == 0640 , "File permissions"); } while (($key,$value) = each(%h)) { |