our $TODO should be local $::TODO, revealing a bug in the de-commenting regexp.
[perl.git] / symbian / cwd.pl
1 use strict;
2 use Cwd;
3 my $CWD = getcwd();
4 $CWD =~ s!^[a-z]:!!i;
5 $CWD =~ s!/!\\!g;
6 $CWD;