[p5sagit/p5-mst-13.2.git] / symbian / cwd.pl

use strict;
use Cwd;
my $CWD = getcwd();
$CWD =~ s!^[a-z]:!!i;
$CWD =~ s!/!\\!g;
$CWD;
Commit	Line	Data
27da23d5	1	use strict;
	2	use Cwd;
	3	my $CWD = getcwd();
53d44271	4	$CWD =~ s!^[a-z]:!!i;
27da23d5	5	$CWD =~ s!/!\\!g;
27da23d5	6	$CWD;