fixed perl 5.8 compatible bug