From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 2 May 2006 17:46:38 +0000 (+0000)
Subject: *static* pointers to newXSUB(), dammit!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4c98449d8cced0a413461ab2ba6c8c9f74b5530;p=p5sagit%2Fp5-mst-13.2.git

*static* pointers to newXSUB(), dammit!

p4raw-id: //depot/perl@28066
---

diff --git a/writemain.SH b/writemain.SH
index 400329f..ac1c5aa 100644
--- a/writemain.SH
+++ b/writemain.SH
@@ -77,7 +77,7 @@ xs_init(pTHX)
 EOP
 
 if test X"$args" != "X" ; then
-    echo "    const char file[] = __FILE__;"
+    echo "    static const char file[] = __FILE__;"
     echo "    dXSUB_SYS;"
 
     ai=''
diff --git a/xsutils.c b/xsutils.c
index 94d7652..86fb0aa 100644
--- a/xsutils.c
+++ b/xsutils.c
@@ -43,11 +43,11 @@ PERL_XS_EXPORT_C void XS_attributes_bootstrap(pTHX_ CV *cv);
  * version checks in these bootstrap calls are optional.
  */
 
+static const char file[] = __FILE__;
+
 void
 Perl_boot_core_xsutils(pTHX)
 {
-    const char file[] = __FILE__;
-
     newXS("attributes::bootstrap",	XS_attributes_bootstrap,	file);
 }
 
@@ -162,7 +162,6 @@ XS(XS_attributes_bootstrap)
 {
     dVAR;
     dXSARGS;
-    const char file[] = __FILE__;
 
     if( items > 1 )
         Perl_croak(aTHX_ "Usage: attributes::bootstrap $module");