It's not contrary to that quote from perlsyn, because there is no expression to evaluate. That quote simply doesn't apply.

However, it is contrary to the perlsyn line that says "LABEL while (EXPR) BLOCK", without adding that EXPR is optional.