Missing prototype behaviour

Message-ID: <20010417231746.21657.qmail@foad.org>

p4raw-id: //depot/perl@9733

diff --git a/ext/Cwd/Cwd.xs b/ext/Cwd/Cwd.xs
index d53f05f..31e408f 100644 (file)
--- a/ext/Cwd/Cwd.xs
+++ b/ext/Cwd/Cwd.xs
@@ -121,6 +121,8 @@ _cwdxs_fastcwd(void)
 
 MODULE = Cwd           PACKAGE = Cwd
 
+PROTOTYPES: ENABLE
+
 char *
 _fastcwd()
 PPCODE:

diff --git a/ext/PerlIO/Scalar/Scalar.xs b/ext/PerlIO/Scalar/Scalar.xs
index b4479d5..8674615 100644 (file)
--- a/ext/PerlIO/Scalar/Scalar.xs
+++ b/ext/PerlIO/Scalar/Scalar.xs
@@ -238,6 +238,8 @@ PerlIO_funcs PerlIO_scalar = {
 
 MODULE = PerlIO::Scalar        PACKAGE = PerlIO::Scalar
 
+PROTOTYPES: ENABLE
+
 BOOT:
 {
 #ifdef PERLIO_LAYERS