This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add comments above Perl_newSTUB()
authorDavid Mitchell <davem@iabyn.com>
Thu, 7 Mar 2019 08:42:59 +0000 (08:42 +0000)
committerDavid Mitchell <davem@iabyn.com>
Thu, 7 Mar 2019 11:21:26 +0000 (11:21 +0000)
op.c

diff --git a/op.c b/op.c
index d24208e..ffed2bd 100644 (file)
--- a/op.c
+++ b/op.c
@@ -10834,6 +10834,10 @@ Perl_newXS_len_flags(pTHX_ const char *name, STRLEN len,
     return cv;
 }
 
+/* Add a stub CV to a typeglob.
+ * This is the implementation of a forward declaration, 'sub foo';'
+ */
+
 CV *
 Perl_newSTUB(pTHX_ GV *gv, bool fake)
 {