From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 3 Feb 2006 15:18:18 +0000 (+0000)
Subject: Fix file where internal XS functions are defined
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=157e3fc8c802010d855ef1c01ff62a891bb5e20d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);