Fix bug #5171 (perl syntax error) found by Jason Filley <jason@snakelegs.org>