From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 19 Oct 2006 12:17:18 +0000 (+0000)
Subject: Make prototype("CORE::mkdir") work. That's a special case,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d116c547427fb631beb1664235978ae153bc51e3;p=p5sagit%2Fp5-mst-13.2.git

Make prototype("CORE::mkdir") work. That's a special case,
since from the OA_* flags we can't figure out which parameter
is going to default to $_.

p4raw-id: //depot/perl@29051
---

diff --git a/pp.c b/pp.c
index ba01223..beee803 100644
--- a/pp.c
+++ b/pp.c
@@ -399,6 +399,10 @@ PP(pp_prototype)
 		if (code == -KEY_chop || code == -KEY_chomp
 			|| code == -KEY_exec || code == -KEY_system || code == -KEY_err)
 		    goto set;
+		if (code == -KEY_mkdir) {
+		    ret = sv_2mortal(newSVpvs("_;$"));
+		    goto set;
+		}
 		while (i < MAXO) {	/* The slow way. */
 		    if (strEQ(s + 6, PL_op_name[i])
 			|| strEQ(s + 6, PL_op_desc[i]))
diff --git a/t/op/cproto.t b/t/op/cproto.t
index 49ba0d7..1b9cf4a 100644
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -138,7 +138,7 @@ lstat (*)
 lt ($$)
 m undef
 map undef
-mkdir (_;$) this prototype is not supported
+mkdir (_;$)
 msgctl ($$$)
 msgget ($$)
 msgrcv ($$$$$)