summaryrefslogtreecommitdiff
path: root/symbian/cwd.pl
blob: 3ee402be8dcf73278f597a6092aede3a50d498a4 (plain)
1
2
3
4
5
6
use strict;
use Cwd;
my $CWD = getcwd();
$CWD =~ s!^[a-z]:!!i;
$CWD =~ s!/!\\!g;
$CWD;