In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/4d169ec9e2a0eb93170198ffad69a892f91dd199?hp=fb7e725522eb400ba57f680cea29799ad5c8e4ac>

- Log -----------------------------------------------------------------
commit 4d169ec9e2a0eb93170198ffad69a892f91dd199
Author: Daniel Dragan <bul...@hotmail.com>
Date:   Tue Mar 6 17:27:04 2018 -0500

    File::Glob bsd_glob.c dont use "loop" as a goto label
    
    Using loop as a label conflicts with Perl's "struct loop" and "LOOP" types
    and Visual C 2003 in C++ mode (but not the default C build) doesn't like
    that. The loop label is from 5.27.1 commit 0db967b2e6
    "[perl #131211] fixup File::Glob degenerate matching"
    
    bsd_glob.c(995) : error C2226: syntax error : unexpected type 'loop'

-----------------------------------------------------------------------

Summary of changes:
 ext/File-Glob/bsd_glob.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ext/File-Glob/bsd_glob.c b/ext/File-Glob/bsd_glob.c
index 4ca3e22a24..0d042b4afb 100644
--- a/ext/File-Glob/bsd_glob.c
+++ b/ext/File-Glob/bsd_glob.c
@@ -935,7 +935,7 @@ match(Char *name, Char *pat, Char *patend, int nocase)
        Char *nextp = NULL;
        Char *nextn = NULL;
 
-    loop:
+    redo:
        while (pat < patend) {
                c = *pat++;
                switch (c & M_MASK) {
@@ -992,7 +992,7 @@ match(Char *name, Char *pat, Char *patend, int nocase)
        if (nextn) {
                pat = nextp;
                name = nextn;
-               goto loop;
+               goto redo;
        }
        return 0;
 }

-- 
Perl5 Master Repository

Reply via email to