*static* pointers to newXSUB(), dammit!

p4raw-id: //depot/perl@28066

diff --git a/writemain.SH b/writemain.SH
index 400329f5f102d64f0a3628fb5ccc719203d82e17..ac1c5aaf45b3e9b625c6f297bd8ffcfdaff8dd0a 100644 (file)
--- 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 94d765243cd620a615ccb29fc6ccf7ab2535d8c5..86fb0aae6ac4efab7141b1128b8784144180c36b 100644 (file)
--- 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");