This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Increase $feature::VERSION to 1.31
[perl5.git] / symbian / symbian_dll.cpp
index a206c99..a1e61a4 100644 (file)
 #include <e32base.h>
 #include "PerlBase.h"
 
+#ifdef __SERIES60_3X__ 
+EXPORT_C GLDEF_C TInt E32Dll(/*TDllReason aReason*/) { return KErrNone; }
+#else
+EXPORT_C GLDEF_C TInt E32Dll(TDllReason /*aReason*/) { return KErrNone; }
+#endif
+
 extern "C" {
     EXPORT_C void* symbian_get_vars(void)         { return Dll::Tls(); }
     EXPORT_C void  symbian_set_vars(const void *p) { Dll::SetTls((TAny*)p); }