[lfs] branch trunk updated: Fix tcl currency.wq

git Owner ([email protected] via lfs-book Mailing List) <[email protected]>
Newsgroups gmane.linux.lfs.book
Message-ID <178755530167.3888210.9822405297621225957@rivendell.linuxfromscratch.org>
This is an automated email from the git hooks/post-receive script.

git pushed a commit to branch trunk
in repository lfs.

The following commit(s) were added to refs/heads/trunk by this push:
     new f18927e7c Fix tcl currency.wq
     new 212f57fef Merge branch 'trunk' of git.linuxfromscratch.org:lfs into trunk
f18927e7c is described below

commit f18927e7c6ffe1e4b6629c0fd13c6b0221f93634
Author: Bruce Dubbs <[email protected]>
AuthorDate: Mon Aug 24 02:07:23 2026 -0500

    Fix tcl currency.wq
---
 lfs-latest-git.php | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lfs-latest-git.php b/lfs-latest-git.php
index 1b6509b63..354df63e2 100644
--- a/lfs-latest-git.php
+++ b/lfs-latest-git.php
@@ -160,7 +160,8 @@ if ( $package == "sqlite-doc" ) $dirpath = "https://sqlite.org/download.html";
 if ( $package == "sysvinit"   ) $dirpath = github("slicer69/sysvinit");
 if ( $package == "sysklogd"   ) $dirpath = github("troglobit/sysklogd");
 if ( $package == "systemd"    ) $dirpath = github("systemd/systemd");
-if ( $package == "tcl"        ) $dirpath = "https://www.tcl.tk/software/tcltk/download.html";
+#if ( $package == "tcl"        ) $dirpath = "https://www.tcl.tk/software/tcltk/download.html";
+if ( $package == "tcl"        ) $dirpath = "https://sourceforge.net/projects/tcl/files/Tcl/";
 if ( $package == "util-linux" ) $dirpath = max_parent( $dirpath, "v." );
 if ( $package == "vim"        ) $dirpath = "https://github.com/vim/vim/tags";
 if ( $package == "wheel"      ) $dirpath = "https://pypi.org/rss/project/wheel/releases.xml";
@@ -247,7 +248,7 @@ if ( $package == "zstd"       ) $dirpath = github("facebook/zstd");
   }
 
   if ( $package == "tcl" )
-     return find_max( $lines, "/tcl8/", "/^.*tcl(\d\.[\d\.]*\d)-src.*$/" );
+     return find_max( $lines, "/Tcl.8/", "/^.*Tcl.(\d\.[\d\.]*\d)\/.*$/" );
 
   if ( $package == "gmp" )
      return find_max( $lines, "/$package/", "/^.*$package-([\d\._]*\d[a-z]?).tar.*$/" );

-- 
To stop receiving notification emails like this one, please contact
the administrator of this repository.

-- 
http://lists.linuxfromscratch.org/sympa/info/lfs-book
Unsubscribe: See the above information page
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.