http://www.perlmonks.org?node_id=884013


in reply to while () vs. while (1)

When did it get added to the language?
Pretty sure Perl 1 worked that way so, like, 1987? :)
edit: Yes, so saith the grammar in perl.y from Perl-1.0
loop : label WHILE '(' texpr ')' compblock { $$ = wopt(add_label($1, make_ccmd(C_WHILE,$4,$6) )); } ... texpr : /* NULL means true */ { scanstr("1"); $$ = yylval.arg; } | expr ;

-- Randal L. Schwartz, Perl hacker

The key words "MUST", "MUST NOT", "REQUIRED", "SHALL", "SHALL NOT", "SHOULD", "SHOULD NOT", "RECOMMENDED", "MAY", and "OPTIONAL" in this document are to be interpreted as described in RFC 2119.