diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-21 15:06:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-21 15:06:16 +0000 |
| commit | 14fb0816f82645feea09be96f0558a9eca72698e (patch) | |
| tree | c0ff6852e26fcd942238347b9c9be18ed9048379 /lib/File | |
| parent | 8d48b1f52eb0f37d1fba87edee63f3edfa4ce9a8 (diff) | |
| download | perl-14fb0816f82645feea09be96f0558a9eca72698e.tar.gz | |
No more public cwd(), use private _cwd().
p4raw-id: //depot/perl@20801
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Spec/t/Spec.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/Spec/t/Spec.t b/lib/File/Spec/t/Spec.t index f3e49f03c3..eb6a719799 100644 --- a/lib/File/Spec/t/Spec.t +++ b/lib/File/Spec/t/Spec.t @@ -214,7 +214,7 @@ if ($^O eq 'MacOS') { [ "Win32->canonpath('/a/b/c/../../d')", '\\a\\d' ], [ "Win32->canonpath('/a/b/c/.../d')", '\\a\\d' ], [ "Win32->canonpath('\\../temp\\')", '\\temp' ], -[ "Win32->can('cwd')", qr/CODE/ ], +[ "Win32->can('_cwd')", qr/CODE/ ], # FakeWin32 subclass (see below) just sets CWD to C:\one\two @@ -540,7 +540,7 @@ plan tests => scalar @tests; { @File::Spec::FakeWin32::ISA = qw(File::Spec::Win32); - sub File::Spec::FakeWin32::cwd { 'C:\\one\\two' } + sub File::Spec::FakeWin32::_cwd { 'C:\\one\\two' } } |