updated patch for perl 5.21.x