Enable the ~~ operator by default.

[perl5.git] / symbian / PerlBase.cpp

diff --git a/symbian/PerlBase.cpp b/symbian/PerlBase.cpp
index 31fe012..443ae0b 100644 (file)
--- 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]"));