X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=opcode.pl;h=59b039b23fbdb0222721aab57c3d0f8e31a33c02;hb=c44d3fdb45c0c48dcd8af6dc9f4a4166137bf839;hp=0dfb9e742dd411c14e7307637f1b2ae0410d266b;hpb=146174a91a192983720a158796dc066226ad0e55;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/opcode.pl b/opcode.pl
index 0dfb9e7..59b039b 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -379,7 +379,7 @@ bless		bless			ck_fun		s@	S S?
 
 backtick	quoted execution (``, qx)	ck_null		t%	
 # glob defaults its first arg to $_
-glob		glob			ck_glob		t@	S? S?
+glob		glob			ck_glob		t@	S?
 readline	<HANDLE>		ck_null		t%	
 rcatline	append I/O operator	ck_null		t%	
 
@@ -709,7 +709,7 @@ 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_fun		isT@	S S?
 rmdir		rmdir			ck_fun		isTu%	S?
 
 # Directory calls.