From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 29 Apr 2005 11:02:01 +0000 (+0300)
Subject: one cannot "static" exported functions
X-Git-Tag: perl-5.9.3~2153
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/5ca1d77ff41a74d34e43fa21ea5727d105ee3601?hp=605881df1187f0374622b9de459bb7d803f7d806

one cannot "static" exported functions
Message-ID: <B356D8F434D20B40A8CEDAEC305A1F2453D705@esebe105.NOE.Nokia.com>

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

diff --git a/perlio.c b/perlio.c
index dae7f9b..3f659ca 100644
--- a/perlio.c
+++ b/perlio.c
@@ -861,7 +861,7 @@ PerlIO_tab_sv(pTHX_ PerlIO_funcs *tab)
     return sv;
 }
 
-static XS(XS_PerlIO__Layer__NoWarnings)
+XS(XS_PerlIO__Layer__NoWarnings)
 {
     /* This is used as a %SIG{__WARN__} handler to supress warnings
        during loading of layers.
@@ -872,7 +872,7 @@ static XS(XS_PerlIO__Layer__NoWarnings)
     XSRETURN(0);
 }
 
-static XS(XS_PerlIO__Layer__find)
+XS(XS_PerlIO__Layer__find)
 {
     dXSARGS;
     if (items < 2)