From da5984550f2d78388bc934016b0c3461ddc8b0a4 Mon Sep 17 00:00:00 2001
From: Jacob Bachmeyer <jcb@gnu.org>
Date: Tue, 4 May 2021 22:52:00 -0500
Subject: Tighten regexp pattern used for validating output of config.guess

---
 runtest.exp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'runtest.exp')

diff --git a/runtest.exp b/runtest.exp
index d950171..0e077ae 100644
--- a/runtest.exp
+++ b/runtest.exp
@@ -862,7 +862,7 @@ if {[expr {$build_triplet eq "" && $host_triplet eq ""}]} {
 	    }
 	}
     }
-    if { ![regexp -- {^[^-]+-[^-]+-[^-]+} $build_triplet] } {
+    if { ![regexp -- {^[[:alnum:]_.]+(-[[:alnum:]_.]+)+$} $build_triplet] } {
 	send_error "ERROR: Running config.guess produced bogus build triplet:\n"
 	send_error "        $build_triplet\n"
 	send_error "       (Perhaps you need to set CONFIG_SHELL or\
-- 
cgit v1.1