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

1 files changed, 4 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index ba012232cc..beee803b66 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]))