This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
core_prototype: Eliminate the special mkdir case
authorFather Chrysostomos <sprout@cpan.org>
Tue, 26 Jul 2011 06:40:19 +0000 (23:40 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 26 Jul 2011 07:09:04 +0000 (00:09 -0700)
commit7de68bd5ba804db7c26eb42d7496401202a00b80
tree78d00e6a6be019655729ad30f6b277317b8d0374
parentb8c38f0a2a65800ef71a3715d0a31299fcfb4986
core_prototype: Eliminate the special mkdir case

The prototype-generation code just needed a little tweaking
for this to work.  It assumed that ‘;’ should not be emitted if
PL_opargs[opnum] & OA_DEFGV, which is not necessarily the case.  It
only applies at the beginning of the prototype, hence the n check
(where n is the character position in the protoytpe).  It also changed
the last $ to _ in the OA_DEFGV case, instead of the first.  _ only
comes at the beginning of a prototype (at least for core functions;
ck_fun, incidentally, enforces this), but not necessarily at the end.
op.c