Author: bdubbs
Date: Sun Feb 14 09:39:11 2021
New Revision: 24220

Log:
Fix currency for tk

Modified:
   trunk/scripts/blfs-chapter13.php

Modified: trunk/scripts/blfs-chapter13.php
==============================================================================
--- trunk/scripts/blfs-chapter13.php    Sat Feb 13 09:55:16 2021        (r24219)
+++ trunk/scripts/blfs-chapter13.php    Sun Feb 14 09:39:11 2021        (r24220)
@@ -169,7 +169,7 @@
    // Same as tcl
    array( 'pkg'     => 'tk',
           'match'   => '^.*$',
-          'replace' => "http://sourceforge.net/projects/tcl/files"; ),
+          'replace' => "https://sourceforge.net/projects/tcl/files"; ),
 
    array( 'pkg'     => 'swig',
           'match'   => '^.*$',
@@ -561,7 +561,10 @@
     if ( $book_index == "tk" )
     {
       exec( "links -dump $dirpath", $lines );
-      return find_max( $lines, "/tcl/", "/^.*tcl(\d[\d\.]*\d)-src.*$/" );
+      $tcl = find_max( $lines, "/tcl/", "/^.*tcl(\d[\d\.]*\d)-src.*$/" );
+      $dirpath  .= "/Tcl/" . $tcl . "/";
+      exec( "links -dump $dirpath", $lines );
+      return find_max( $lines, "/tk8\./", "/^.*tk(\d[\d\.]*\d)-src.*$/" );
     }
 
     $strip = "yes";
-- 
http://lists.linuxfromscratch.org/listinfo/blfs-book
FAQ: http://www.linuxfromscratch.org/blfs/faq.html
Unsubscribe: See the above information page

Reply via email to