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 (file)
--- 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 (file)
--- 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 ($$$$$)