This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix file where internal XS functions are defined
[perl5.git] / universal.c
index 097247b..2afa2f6 100644 (file)
@@ -207,7 +207,7 @@ void
 Perl_boot_core_UNIVERSAL(pTHX)
 {
     dVAR;
-    const char file[] = __FILE__;
+    static const char file[] = __FILE__;
 
     newXS("UNIVERSAL::isa",             XS_UNIVERSAL_isa,         file);
     newXS("UNIVERSAL::can",             XS_UNIVERSAL_can,         file);