From d32793394506cce30e5ae4fb6827bb6a2d170dd1 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 11 Oct 2005 17:48:49 +0300
Subject: Symbian blead fix Message-ID:
 <B356D8F434D20B40A8CEDAEC305A1F24E7A5D4@esebe105.NOE.Nokia.com>

p4raw-id: //depot/perl@25736
---
 symbian/PerlApp.cpp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'symbian')

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;
 }
-- 
cgit v1.2.1