1 files changed, 7 insertions, 2 deletions
diff --git a/symbian/PerlApp.cpp b/symbian/PerlApp.cpp
index 8be786b2f8..2c5883ae4e 100644
--- a/symbian/PerlApp.cpp
+++ b/symbian/PerlApp.cpp
@@ -458,8 +458,13 @@ TBool CPerlAppUi::ProcessCommandParametersL(TApaCommand aCommand, TFileName& /*
         TFileName appName = Application()->AppFullName();
 	TParse p;
 	p.Set(KDefaultScript, &appName, NULL);
-	DoRunScriptL(p.FullName());
-	return EFalse;
+	TEntry aEntry;
+	RFs aFs;
+	aFs.Connect();
+	if (aFs.Entry(p.FullName(), aEntry) == KErrNone) {
+	    DoRunScriptL(p.FullName());
+	    Exit();
+	}
     }
     return aCommand == EApaCommandOpen ? ETrue : EFalse;
 }