for compat with Perl 5.8