diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-08-15 06:39:41 -0400 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-08-20 13:16:19 +0000 |
| commit | 482150a7b7fa28a4cdcbe9eb32bbd0a420918766 (patch) | |
| tree | acbcd597c1ca58e0dc6387ed3972cefc2bd8bde4 /t/lib | |
| parent | 938aad412ad7b32d5a6a132b25ca095433d86c14 (diff) | |
| download | perl-482150a7b7fa28a4cdcbe9eb32bbd0a420918766.tar.gz | |
Get Cwd->cwd() to work under Cygwin
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510708150739q18fa5863s55010b538d11f77f@mail.gmail.com>
Updated patch originally by Reini Urban.
p4raw-id: //depot/perl@31737
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/cygwin.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/lib/cygwin.t b/t/lib/cygwin.t index 3623f9a0bc..7f2f655bc7 100644 --- a/t/lib/cygwin.t +++ b/t/lib/cygwin.t @@ -9,7 +9,7 @@ BEGIN { } } -use Test::More tests => 14; +use Test::More tests => 15; is(Cygwin::winpid_to_pid(Cygwin::pid_to_winpid($$)), $$, "perl pid translates to itself"); @@ -59,3 +59,5 @@ for $i (@mnttbl) { is($i->[2].",".$i->[3], $rootmnt, "same root mount flags"); } } + +ok(Cwd->cwd(), "bug#38628 legacy"); |