general-functions.pl: Fix perl coding error