diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2018-03-06 17:27:04 -0500 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2018-03-07 10:44:09 +1100 |
| commit | 4d169ec9e2a0eb93170198ffad69a892f91dd199 (patch) | |
| tree | 95a0581d9fb49c859e861219ba279f564dcfcf24 /ext/File-Glob | |
| parent | fb7e725522eb400ba57f680cea29799ad5c8e4ac (diff) | |
| download | perl-4d169ec9e2a0eb93170198ffad69a892f91dd199.tar.gz | |
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'
Diffstat (limited to 'ext/File-Glob')
| -rw-r--r-- | ext/File-Glob/bsd_glob.c | 4 |
1 files 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; } |