Bug fix (old perl).