This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
explicit empty while loops
[perl5.git] / op.c
diff --git a/op.c b/op.c
index 19d834f..525b159 100644 (file)
--- a/op.c
+++ b/op.c
@@ -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);