From: Father Chrysostomos <sprout@cpan.org>
Date: Tue, 9 Aug 2011 13:02:39 +0000 (-0700)
Subject: Update core_prototype’s docs
X-Git-Tag: accepted/trunk/20130322.191538~3148^2~11
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=a051f6c4b8aae71e5158c70dcff267f262d2f4c4;p=platform%2Fupstream%2Fperl.git

Update core_prototype’s docs
---

diff --git a/op.c b/op.c
index d4d89e4..4f8693a 100644
--- a/op.c
+++ b/op.c
@@ -10333,10 +10333,8 @@ Perl_custom_op_register(pTHX_ Perl_ppaddr_t ppaddr, const XOP *xop)
 =for apidoc core_prototype
 This function assigns the prototype of the named core function to C<sv>, or
 to a new mortal SV if C<sv> is NULL.  It returns the modified C<sv>, or
-NULL if the core function has no prototype.
-
-If the C<name> is not a Perl keyword, it croaks if C<croak> is true, or
-returns NULL if C<croak> is false.
+NULL if the core function has no prototype.  C<code> is a code as returned
+by C<keyword()>.  It must be negative and unequal to -KEY_CORE.
 
 =cut
 */