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 (file)
--- 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)