made it compatible with Perl 5.8 again