This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Clarify purpose of S_looks_like_bool()
authorDavid Mitchell <davem@iabyn.com>
Fri, 31 May 2019 15:59:53 +0000 (16:59 +0100)
committerDavid Mitchell <davem@iabyn.com>
Mon, 24 Jun 2019 10:40:07 +0000 (11:40 +0100)
op.c

diff --git a/op.c b/op.c
index cdf6bc4..ded96dd 100644 (file)
--- a/op.c
+++ b/op.c
@@ -9333,7 +9333,10 @@ S_newGIVWHENOP(pTHX_ OP *cond, OP *block,
     return o;
 }
 
-/* Does this look like a boolean operation? For these purposes
+
+/* For the purposes of 'when(implied_smartmatch)'
+ *              versus 'when(boolean_expression)',
+ * does this look like a boolean operation? For these purposes
    a boolean operation is:
      - a subroutine call [*]
      - a logical connective
@@ -9421,6 +9424,7 @@ S_looks_like_bool(pTHX_ const OP *o)
     }
 }
 
+
 /*
 =for apidoc newGIVENOP