Correct three sub call comments in perly.y

[perl5.git] / symbian / cwd.pl

diff --git a/symbian/cwd.pl b/symbian/cwd.pl
index d3272d2..3ee402b 100644 (file)
--- a/symbian/cwd.pl
+++ b/symbian/cwd.pl
@@ -1,6 +1,6 @@
 use strict;
 use Cwd;
 my $CWD = getcwd();
-$CWD =~ s!^C:!!i;
+$CWD =~ s!^[a-z]:!!i;
 $CWD =~ s!/!\\!g;
 $CWD;