Work around Expect bug

diff --git a/testsuite/lib/upload.exp b/testsuite/lib/upload.exp
index f1cbfd901914fc1a51492f0984a7add9612e5bf8..5820beb8f5a9687eb64ca49b5e4b37eb199dafc3 100644 (file)
--- 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)) \