This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Unify the two warnings "Can't declare %s in %s", in line with what's
[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;