diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-12-09 13:09:07 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-12-30 11:55:07 +0100 |
| commit | ad413e46537404483e9916f0c3de130b868594f7 (patch) | |
| tree | c353b7c29d7d2356ef32b40ce9c3e16476f2e4c6 /ext/POSIX/t | |
| parent | a387c53a5a2f3e13850addc6976624f827a26226 (diff) | |
| download | perl-ad413e46537404483e9916f0c3de130b868594f7.tar.gz | |
Provide the correct POSIX return value for POSIX::dup2() on Win32.
Microsoft, in their wisdom, chose to ignore the POSIX spec when implementing
their dup2(), and have theirs return 0 on success, instead of the file
descriptor. It seems that no other vendor is this, um, "special", so code
the exception directly, as we don't run Configure on Win32, so there's little
point probing for this.
This resolves RT #98912.
Diffstat (limited to 'ext/POSIX/t')
| -rw-r--r-- | ext/POSIX/t/posix.t | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t index a5585e0561..442b540dac 100644 --- a/ext/POSIX/t/posix.t +++ b/ext/POSIX/t/posix.t @@ -346,9 +346,6 @@ is($buffer, "# Ex", 'read'); # The descriptor $testfd was using is now free, and is lower than that which # $fd1 was using. Hence if dup2() behaves as dup(), we'll know :-) { - local $TODO; - $TODO = "dup2's return value is not correct on $^O" - if $Is_W32; $testfd = dup2($fd2, $fd1); is($testfd, $fd1, 'dup2'); undef $buffer; |