perl 4.0 patch 36: (combined patch)perl-4.0.36

Since Ed Barton sent me a patch for the malignent form of "Malformed
cmd links", I finally broke down and made a patch for the various
other little things that have been accumulating on version 4.

1 files changed, 1 insertions, 1 deletions

diff --git a/t/io/fs.t b/t/io/fs.t
index 705523cffe..d298b29509 100644
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -13,7 +13,7 @@ chdir './tmp';
 
 umask(022);
 
-if (umask(0) == 022) {print "ok 1\n";} else {print "not ok 1\n";}
+if ((umask(0)&0777) == 022) {print "ok 1\n";} else {print "not ok 1\n";}
 open(fh,'>x') || die "Can't create x";
 close(fh);
 open(fh,'>a') || die "Can't create a";