Fix file where internal XS functions are defined

p4raw-id: //depot/perl@27064

diff --git a/universal.c b/universal.c
index 097247b..2afa2f6 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -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);