From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 11 Oct 2005 14:48:49 +0000 (+0300)
Subject: Symbian blead fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d32793394506cce30e5ae4fb6827bb6a2d170dd1;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 }