X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=opcode.h;h=fd12e46afe85efce42690cc96177fcea9a74fe20;hb=dc507217b3331807446df6e7f16977ee2fdc418e;hp=28f13453355fe306ff6bb7efbadface107cbbc3e;hpb=b04ef3598b41ce1175203a34d27b34173c201d32;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/opcode.h b/opcode.h
index 28f1345..fd12e46 100644
--- a/opcode.h
+++ b/opcode.h
@@ -1289,7 +1289,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* close */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* pipe_op */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* fileno */
-	MEMBER_TO_FPTR(Perl_ck_fun),	/* umask */
+	MEMBER_TO_FPTR(Perl_ck_octmode),	/* umask */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* binmode */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* tie */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* untie */
@@ -1361,13 +1361,13 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* chown */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* chroot */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* unlink */
-	MEMBER_TO_FPTR(Perl_ck_fun),	/* chmod */
+	MEMBER_TO_FPTR(Perl_ck_octmode),	/* chmod */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* utime */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* rename */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* link */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* symlink */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* readlink */
-	MEMBER_TO_FPTR(Perl_ck_fun),	/* mkdir */
+	MEMBER_TO_FPTR(Perl_ck_octmode),	/* mkdir */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* rmdir */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* open_dir */
 	MEMBER_TO_FPTR(Perl_ck_fun),	/* readdir */