This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_ctl.c: Silence compiler warning.
authorKarl Williamson <public@khwilliamson.com>
Mon, 7 Jan 2013 02:24:13 +0000 (19:24 -0700)
committerKarl Williamson <public@khwilliamson.com>
Mon, 7 Jan 2013 04:22:43 +0000 (21:22 -0700)
A compiler on one of our smoke platforms wants empty braces here.

pp_ctl.c

index 199df1f..d5028c8 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3905,7 +3905,7 @@ PP(pp_require)
                    if (tryrsfp) {
                        if (tryname[0] == '.' && tryname[1] == '/') {
                            ++tryname;
-                           while (*++tryname == '/');
+                           while (*++tryname == '/') {}
                        }
                        break;
                    }