diff options
| author | Robin Barker <RMBarker@cpan.org> | 2008-10-29 13:22:04 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-11-02 17:04:09 +0000 |
| commit | 47127b64dd369017e77ff2eac9a6d3c02398507b (patch) | |
| tree | c1d71f1439fb53e12cd15bdbf354db76a15c79a0 /op.c | |
| parent | f1f66076265cc2bac3adabd54c01b0dea28ca3f0 (diff) | |
| download | perl-47127b64dd369017e77ff2eac9a6d3c02398507b.tar.gz | |
explicit empty while loops
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D4E2FD9@exchsvr2.npl.ad.local>
p4raw-id: //depot/perl@34695
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -8084,7 +8084,7 @@ Perl_ck_subr(pTHX_ OP *o) const char *p = proto; const char *const end = proto; contextclass = 0; - while (*--p != '['); + while (*--p != '[') {} bad_type(arg, Perl_form(aTHX_ "one of %.*s", (int)(end - p), p), gv_ename(namegv), o3); |