diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2007-01-01 03:49:03 -0500 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-01-01 15:41:48 +0000 |
| commit | 53d44271720d88220a01b5620a93869665083b01 (patch) | |
| tree | 1dad3ec38b4010490e014136342b7211ea4f48c0 /symbian/cwd.pl | |
| parent | 22735491a787756cfbfdb6b4e8124a882f0abd9a (diff) | |
| download | perl-53d44271720d88220a01b5620a93869665083b01.tar.gz | |
Symbian port: add Series 90 support
Message-ID: <4599114F.8020307@iki.fi>
p4raw-id: //depot/perl@29650
Diffstat (limited to 'symbian/cwd.pl')
| -rw-r--r-- | symbian/cwd.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/symbian/cwd.pl b/symbian/cwd.pl index d3272d2de5..3ee402be8d 100644 --- 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; |