Re: while () vs. while (1)

[merlyn]

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
    ;