From: Karl Williamson <khw@cpan.org>
Date: Thu, 13 Feb 2020 00:46:49 +0000 (-0700)
Subject: regcomp.c: Move comment
X-Git-Tag: v5.31.9~36
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/7373c61897c38d6fb9a69976fd6509bb3a0a2d9c?ds=sidebyside

regcomp.c: Move comment

This comment had gotten moved away from where it is applicable.
---

diff --git a/regcomp.c b/regcomp.c
index cd7484b..d56848b 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -24066,6 +24066,7 @@ Perl_parse_uniprop_string(pTHX_
              * but not yet used. */
             save_item(PL_subname);
 
+            /* G_SCALAR guarantees a single return value */
             (void) call_sv(user_sub_sv, G_EVAL|G_SCALAR);
 
             SPAGAIN;
@@ -24093,7 +24094,7 @@ Perl_parse_uniprop_string(pTHX_
                 (void) POPs;
                 prop_definition = NULL;
             }
-            else {  /* G_SCALAR guarantees a single return value */
+            else {
                 SV * contents = POPs;
 
                 /* The contents is supposed to be the expansion of the property