diff options
author | Jan Dubois <jand@activestate.com> | 2009-11-13 11:45:46 -0800 |
---|---|---|
committer | Jan Dubois <jand@activestate.com> | 2009-11-13 11:47:25 -0800 |
commit | 364d54baf6add9c4667b89e1656f226d0882a843 (patch) | |
tree | d267ba479c710d95e44c14dd1ef3e62239e95ab1 /cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm | |
parent | fea10cf637669988fe9f4b11a9a5981982c8450a (diff) | |
download | perl-364d54baf6add9c4667b89e1656f226d0882a843.tar.gz |
Support $! stringification of socket error codes on Windows.
The winsock error codes from WSAGetLastError() are stored by
Perl in errno, and there is some code in win32_strerror() that
would stringify them, but that code is never called when Perl
is built with the default WIN32IO_IS_STDIO setting.
This patch enables the win32_strerror() override unconditionally
and also fixes a potential memory corruption issue by using
the FORMAT_MESSAGE_IGNORE_INSERTS flag to ignore any parameter
substitution codes that may be embedded in the error message.
This now works as expected:
C:\git\perl>perl -Ilib -MPOSIX -E "$!=POSIX::EWOULDBLOCK; say $!"
A non-blocking socket operation could not be completed immediately.
Diffstat (limited to 'cpan/IO-Compress/lib/IO/Uncompress/RawInflate.pm')
0 files changed, 0 insertions, 0 deletions