[perl #36037] Perl 5.8.7-RC1 build problems on LynxOS

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

use strict;
use Cwd;
my $CWD = getcwd();
$CWD =~ s!^C:!!i;
$CWD =~ s!/!\\!g;
$CWD;