From: Jacob Bachmeyer <jcb@gnu.org>
Date: Tue, 4 Oct 2022 02:01:38 +0000 (-0500)
Subject: Work around Expect bug
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=6746763b23c5d32705f4778dd04fe6301bdefae6;p=gatekeeper.git

Work around Expect bug
---

diff --git a/testsuite/lib/upload.exp b/testsuite/lib/upload.exp
index f1cbfd9..5820beb 100644
--- a/testsuite/lib/upload.exp
+++ b/testsuite/lib/upload.exp
@@ -401,7 +401,7 @@ proc analyze_file_tree { base_dir name zones mode {itemlist {}} } {
 		expect {
 		    -re {^[\r\n]+} { exp_continue }
 		    -re "^$zone_base" { exp_continue }
-		    -re {^/([^\037]+)\037([^\r\n]+)} {
+		    -re {^/([^\37]+)\37([^\r\n]+)} {
 			if { [info exists \
 				  linkmap_want($expect_out(1,string))] } {
 			    if { $linkmap_want($expect_out(1,string)) \