This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Fix comment
authorKarl Williamson <khw@cpan.org>
Sun, 24 Mar 2019 20:27:38 +0000 (14:27 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 25 Mar 2019 16:44:37 +0000 (10:44 -0600)
It wasn't quite accurate

regcomp.c

index e13da83..0d4789b 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -23215,10 +23215,11 @@ Perl_parse_uniprop_string(pTHX_
                                                     level);
             }
 
-            /* Here, we have the results of the expansion.  Replace the
-             * placeholder with them.  We need exclusive access to the hash,
-             * and we can't let anyone else in, between when we delete the
-             * placeholder and add the permanent entry */
+            /* Here, we have the results of the expansion.  Delete the
+             * placeholder, and if the definition is now known, replace it with
+             * that definition.  We need exclusive access to the hash, and we
+             * can't let anyone else in, between when we delete the placeholder
+             * and add the permanent entry */
             USER_PROP_MUTEX_LOCK;
 
             S_delete_recursion_entry(aTHX_ SvPVX(fq_name));