X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=opcode.pl;h=942d8d2f6d862d2fadef97703cb7988796fa638e;hb=40b7a5f5e789eb31046d021a15e48b502ad8e1e9;hp=40536717334d659735c9a55f7dfa2e8eac337fd6;hpb=b04ef3598b41ce1175203a34d27b34173c201d32;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/opcode.pl b/opcode.pl
index 4053671..942d8d2 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -674,7 +674,7 @@ close		close			ck_fun		is%	F?
 pipe_op		pipe			ck_fun		is@	F F
 
 fileno		fileno			ck_fun		ist%	F
-umask		umask			ck_fun		ist%	S?
+umask		umask			ck_octmode	ist%	S?
 binmode		binmode			ck_fun		s@	F S?
 
 tie		tie			ck_fun		idms@	R S L
@@ -767,13 +767,13 @@ chdir		chdir			ck_fun		isT%	S?
 chown		chown			ck_fun		imsT@	L
 chroot		chroot			ck_fun		isTu%	S?
 unlink		unlink			ck_fun		imsTu@	L
-chmod		chmod			ck_fun		imsT@	L
+chmod		chmod			ck_octmode	imsT@	L
 utime		utime			ck_fun		imsT@	L
 rename		rename			ck_fun		isT@	S S
 link		link			ck_fun		isT@	S S
 symlink		symlink			ck_fun		isT@	S S
 readlink	readlink		ck_fun		stu%	S?
-mkdir		mkdir			ck_fun		isT@	S S?
+mkdir		mkdir			ck_octmode	isT@	S S?
 rmdir		rmdir			ck_fun		isTu%	S?
 
 # Directory calls.