X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=opcode.pl;h=d63ecc52929b98c48c03122cdcedb752e5c54928;hb=0a753a764065f2260004b6e6975085378b850346;hp=b23193349c3267ff4532f88ae04f72f16784ef42;hpb=4b094ceb80288fc9f7c15ae78fc662051510284d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/opcode.pl b/opcode.pl
index b231933..d63ecc5 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -224,7 +224,8 @@ bless		bless			ck_fun		s	S S?
 # Pushy I/O.
 
 backtick	backticks		ck_null		t	
-glob		glob			ck_glob		t	S S
+# glob defaults its first arg to $_
+glob		glob			ck_glob		t	S? S?
 readline	<HANDLE>		ck_null		t	
 rcatline	append I/O operator	ck_null		t