This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Use get_cvs(), a clearer short cut
authorKarl Williamson <khw@cpan.org>
Fri, 31 Jul 2020 12:22:49 +0000 (06:22 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 31 Jul 2020 12:28:53 +0000 (06:28 -0600)
regcomp.c

index 89e8686..c62ae56 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -24041,7 +24041,7 @@ S_parse_uniprop_string(pTHX_
                 goto append_name_to_msg;
             }
 
-            lookup_loose = get_cv("_charnames::_loose_regcomp_lookup", 0);
+            lookup_loose = get_cvs("_charnames::_loose_regcomp_lookup", 0);
             if (! lookup_loose) {
                 Perl_croak(aTHX_
                        "panic: Can't find '_charnames::_loose_regcomp_lookup");