From 4bc4b26d5a6fcd053175d984415ec0cfe673ac72 Mon Sep 17 00:00:00 2001
From: Bruce Dubbs <bdubbs@linuxfromscratch.org>
Date: Wed, 12 Feb 2025 19:05:22 -0600
Subject: [PATCH] Restrict tcl currency to version 8 for now.

---
 lfs-latest-git.php | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lfs-latest-git.php b/lfs-latest-git.php
index 397f8732a..f189871eb 100644
--- a/lfs-latest-git.php
+++ b/lfs-latest-git.php
@@ -232,7 +232,7 @@ if ( $package == "zstd"       ) $dirpath = github("facebook/zstd");
   }
 
   if ( $package == "tcl" )
-     return find_max( $lines, "/tcl\d/", "/^.*tcl(\d\.[\d\.]*\d)-src.*$/" );
+     return find_max( $lines, "/tcl8/", "/^.*tcl(\d\.[\d\.]*\d)-src.*$/" );
 
   if ( $package == "gmp" )
      return find_max( $lines, "/$package/", "/^.*$package-([\d\._]*\d[a-z]?).tar.*$/" );