Select Code to Download

#!/usr/bin/perl -w
# Simulate "Free to wrong pool" crash from Telnet.pm, line 1987
...
}

do_threads(2);

local $SIG{"__WARN__"} = sub { push @warns, @_ };

local $SIG{"__WARN__"} = eval <<'CLOSURE_HACK';
sub { push @warns, @_ }
CLOSURE_HACK