X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=symbian%2Ffind_writeable_data.pl;h=bdb579086d4b6fff687fdcf1c174fc66e37bd555;hb=a11019f8bfc1b4438fdb32560361d443c701e293;hp=24bf29871300f2b8e82f1d321de18d3466392364;hpb=a0fd494844cc8648fdc5234c367fd018a12fdf3f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/symbian/find_writeable_data.pl b/symbian/find_writeable_data.pl
index 24bf298..bdb5790 100644
--- a/symbian/find_writeable_data.pl
+++ b/symbian/find_writeable_data.pl
@@ -34,7 +34,7 @@ use Cwd;
 use File::Basename;
 
 my $dir = lc(getcwd());
-my $tgt = basename(shift @ARGV);
+my $tgt = basename(shift(@ARGV), ".mmp");
 
 $dir =~ s!/!\\!g;
 $dir =~ s!^c:!c:$ENV{EPOCROOT}epoc32\\build!;