This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to CPAN-1.83_66.
[perl5.git] / symbian / cwd.pl
1 use strict;
2 use Cwd;
3 my $CWD = getcwd();
4 $CWD =~ s!^C:!!i;
5 $CWD =~ s!/!\\!g;
6 $CWD;