merging set_timeout fix for PERL-162