Fixes some subtle perl coding bug observed
by Jan Engelhardt <jengelh@computergmbh.de>
This patch applies on top of Adrian's fix.
Signed-off-by: NRam Pai <linuxram@us.ibm.com>
Acked-by: NJan Engelhardt <jengelh@computergmbh.de>
Signed-off-by: NSam Ravnborg <sam@ravnborg.org>