This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c: Comments only
authorKarl Williamson <khw@cpan.org>
Wed, 27 Feb 2019 21:05:18 +0000 (14:05 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 7 Nov 2019 04:22:23 +0000 (21:22 -0700)
Indent for clarity, and add a comment

op.c

diff --git a/op.c b/op.c
index 5adfcb6..55dbcb6 100644 (file)
--- a/op.c
+++ b/op.c
@@ -7261,14 +7261,16 @@ S_set_haseval(pTHX)
  *
  * Flags currently has 2 bits of meaning:
  * 1: isreg indicates that the pattern is part of a regex construct, eg
- * $x =~ /pattern/ or split /pattern/, as opposed to $x =~ $pattern or
- * split "pattern", which aren't. In the former case, expr will be a list
- * if the pattern contains more than one term (eg /a$b/).
+ *      $x =~ /pattern/ or split /pattern/, as opposed to $x =~ $pattern or
+ *      split "pattern", which aren't. In the former case, expr will be a list
+ *      if the pattern contains more than one term (eg /a$b/).
  * 2: The pattern is for a split.
  *
  * When the pattern has been compiled within a new anon CV (for
  * qr/(?{...})/ ), then floor indicates the savestack level just before
  * the new sub was created
+ *
+ * tr/// is also handled.
  */
 
 OP *