diff options
| -rw-r--r-- | pp.c | 4 | ||||
| -rw-r--r-- | t/op/cproto.t | 2 |
2 files changed, 5 insertions, 1 deletions
@@ -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 49ba0d715a..1b9cf4af95 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 ($$$$$) |