Symbian blead fix

Message-ID: <B356D8F434D20B40A8CEDAEC305A1F24E7A5D4@esebe105.NOE.Nokia.com>

p4raw-id: //depot/perl@25736

diff --git a/symbian/PerlApp.cpp b/symbian/PerlApp.cpp
index 8be786b..2c5883a 100644 (file)
--- 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;
 }