Fixed a warning that may occur with some versions of Perl.