develooper Front page | perl.perl5.changes | Postings from March 2018

[perl.git] branch blead updated. v5.27.9-121-g4d169ec9e2

From:
Tony Cook
Date:
March 7, 2018 00:13
Subject:
[perl.git] branch blead updated. v5.27.9-121-g4d169ec9e2
Message ID:
E1etMgv-0002gC-KA@git.dc.perl.space
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 <bulk88@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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About