merge from perl-events