diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-10-17 21:27:57 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-17 15:05:23 +0000 |
| commit | 5c271e2566556176f5be72955599e28e159007fd (patch) | |
| tree | eafa42afe175184163877e7e8b9680bde48c27c6 /symbian/find_writeable_data.pl | |
| parent | 16fa893905d221693a5e0a95ba525247aa3d7a04 (diff) | |
| download | perl-5c271e2566556176f5be72955599e28e159007fd.tar.gz | |
even more Symbian
Message-ID: <B356D8F434D20B40A8CEDAEC305A1F24E7A61F@esebe105.NOE.Nokia.com>
p4raw-id: //depot/perl@25782
Diffstat (limited to 'symbian/find_writeable_data.pl')
| -rw-r--r-- | symbian/find_writeable_data.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/symbian/find_writeable_data.pl b/symbian/find_writeable_data.pl index 24bf298713..bdb579086d 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!; |