From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 15 Jan 2007 06:11:52 +0000 (+0200)
Subject: Symbian/S90 further fixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4dc4bba60f13ed8dad154870e750085525979ec1;p=p5sagit%2Fp5-mst-13.2.git

Symbian/S90 further fixes
Message-Id: <20070115041152.374AB43A67@anubis.hut.fi>

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

diff --git a/perl.h b/perl.h
index 373062f..8c8e078 100644
--- a/perl.h
+++ b/perl.h
@@ -3891,7 +3891,7 @@ typedef Sighandler_t Sigsave_t;
 #endif
 
 #ifdef USE_PERLIO
-EXTERN_C void PerlIO_teardown(pTHX);
+EXTERN_C PERL_EXPORT_C void PerlIO_teardown(pTHX);
 # ifdef USE_ITHREADS
 #  define PERLIO_INIT MUTEX_INIT(&PL_perlio_mutex)
 #  define PERLIO_TERM 				\
diff --git a/symbian/PerlBase.cpp b/symbian/PerlBase.cpp
index 31fe012..443ae0b 100644
--- a/symbian/PerlBase.cpp
+++ b/symbian/PerlBase.cpp
@@ -21,6 +21,7 @@ CPerlBase::CPerlBase()
 
 EXPORT_C void CPerlBase::Destruct()
 {
+    dTHX;
     iState = EPerlDestroying;
     if (iConsole) {
         iConsole->Printf(_L("[Any key to continue]"));
diff --git a/symbian/config.sh b/symbian/config.sh
index f58e713..206c9bc 100644
--- a/symbian/config.sh
+++ b/symbian/config.sh
@@ -85,6 +85,7 @@ d_crypt='undef'
 d_crypt_r='undef'
 d_csh='undef'
 d_ctermid_r='undef'
+d_cterm='undef'
 d_ctime_r='undef'
 d_c99_variadic_macros='undef'
 d_cuserid='undef'
@@ -128,7 +129,7 @@ d_fds_bits='undef'
 d_fgetpos='undef'
 d_finite='undef'
 d_finitel='undef'
-d_flexfnam='undef'
+d_flexfnam='define'
 d_flock='undef'
 d_flockproto='undef'
 d_fork='undef'
@@ -286,7 +287,9 @@ d_phostname='undef'
 d_pipe='undef'
 d_poll='undef'
 d_portable='undef'
+d_printf_format_null='undef'
 d_procselfexe='undef'
+d_pseudofork='undef'
 d_pthread_atfork='undef'
 d_pthread_attr_setscope='undef'
 d_pthread_yield='undef'