Select Code to Download

        /* Join the thread */
#ifdef WIN32
...
            Perl_croak(aTHX_ "PANIC: underlying join failed");
        };
#endif

    # wait to join and delete from hash
    foreach my $join (threads->list(threads::joinable)) {
...
        # tprint("Deleting fd- $val");
        delete $FDcache{$val};
    }

C:\>perl -v
This is perl 5, version 16, subversion 1 (v5.16.1) built for MSWin32-x
+64-multi-t
hread
(with 1 registered patch, see perl -V for more detail)