Fix another perl warning