$p -> $l name fix