1 files changed, 20 insertions, 0 deletions
diff --git a/symbian/symbian_dll.cpp b/symbian/symbian_dll.cpp
new file mode 100644
index 0000000000..92a06b883f
--- /dev/null
+++ b/symbian/symbian_dll.cpp
@@ -0,0 +1,20 @@
+/*
+ *	symbian_dll.cpp
+ *
+ *	Copyright (c) Nokia 2004-2005.  All rights reserved.
+ *      This code is licensed under the same terms as Perl itself.
+ *
+ */
+
+#define SYMBIAN_DLL_CPP
+#include <e32base.h>
+#include "PerlBase.h"
+
+EXPORT_C GLDEF_C TInt E32Dll(TDllReason /*aReason*/) { return KErrNone; }
+
+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); }
+    EXPORT_C void  symbian_unset_vars(void)	   { Dll::SetTls(0); }
+}
+