This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.h: Corrent comment about entersub strictures
authorFather Chrysostomos <sprout@cpan.org>
Sun, 2 Jun 2013 23:33:31 +0000 (16:33 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 4 Jun 2013 03:30:28 +0000 (20:30 -0700)
Flag 2 on entersub is HINT_STRICT_REFS, not _SUBS.

op.h

diff --git a/op.h b/op.h
index 7c5030d..caa1b8b 100644 (file)
--- a/op.h
+++ b/op.h
@@ -204,7 +204,7 @@ Deprecated.  Use C<GIMME_V> instead.
 #define OPpENTERSUB_HASTARG    4       /* Called from OP tree. */
 #define OPpENTERSUB_INARGS     1       /* Lval used as arg to a sub. */
 /* used by OPpDEREF             (32|64) */
-/* used by HINT_STRICT_SUBS     2          */
+/* used by HINT_STRICT_REFS     2          */
   /* Mask for OP_ENTERSUB flags, the absence of which must be propagated
      in dynamic context */
 #define OPpENTERSUB_LVAL_MASK (OPpLVAL_INTRO|OPpENTERSUB_INARGS)