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
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 3 Feb 2006 15:18:18 +0000 (15:18 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 3 Feb 2006 15:18:18 +0000 (15:18 +0000)
p4raw-id: //depot/perl@27064

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