remove warning in perl/provider