From 6746763b23c5d32705f4778dd04fe6301bdefae6 Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Mon, 3 Oct 2022 21:01:38 -0500
Subject: [PATCH] Work around Expect bug

---
 testsuite/lib/upload.exp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)) \
-- 
2.25.1