This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Rename global variable to prevent confusion with local
authorJames E Keenan <jkeenan@cpan.org>
Mon, 26 Nov 2018 17:14:51 +0000 (12:14 -0500)
committerJames E Keenan <jkeenan@cpan.org>
Mon, 26 Nov 2018 17:14:51 +0000 (12:14 -0500)
Per:  https://lgtm.com/projects/g/Perl/perl5/alerts/?mode=tree&ruleFocus=2157860312

universal.c

index 2262939..c1b5dd4 100644 (file)
@@ -995,7 +995,7 @@ struct xsub_details {
     const char *proto;
 };
 
-static const struct xsub_details details[] = {
+static const struct xsub_details these_details[] = {
     {"UNIVERSAL::isa", XS_UNIVERSAL_isa, NULL},
     {"UNIVERSAL::can", XS_UNIVERSAL_can, NULL},
     {"UNIVERSAL::DOES", XS_UNIVERSAL_DOES, NULL},
@@ -1075,8 +1075,8 @@ void
 Perl_boot_core_UNIVERSAL(pTHX)
 {
     static const char file[] = __FILE__;
-    const struct xsub_details *xsub = details;
-    const struct xsub_details *end = C_ARRAY_END(details);
+    const struct xsub_details *xsub = these_details;
+    const struct xsub_details *end = C_ARRAY_END(these_details);
 
     do {
        newXS_flags(xsub->name, xsub->xsub, file, xsub->proto, 0);