Skip to content

Instantly share code, notes, and snippets.

View chorny's full-sized avatar

Alexandr Ciornii chorny

View GitHub Profile
#!/usr/bin/perl
#
# Copyright (c) 2011
# Donald D. Anderson. All rights reserved.
#
# Redistribution and use in source and binary forms are permitted.
# This software is provided 'as is' and any express or
# implied warranties, including, but not limited to, the implied
# warranties of merchantability, fitness for a particular purpose, or
# non-infringement, are disclaimed.
@chorny
chorny / io_sock.t
Created May 23, 2015 14:02
tests from io_sock.t that work on Windows
use Config;
BEGIN {
my $can_fork = $Config{d_fork} ||
(($^O eq 'MSWin32' || $^O eq 'NetWare') and
$Config{useithreads} and
$Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
);
my $reason;
if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bSocket\b/) {