From 1f4ed4500d58a1dbac662cdf4dcb92288a8905ca Mon Sep 17 00:00:00 2001

From: "Vladimir D. Seleznev" <vseleznv@altlinux.org>

Date: Sun, 18 Aug 2019 16:15:26 +0300

Subject: [PATCH] ALT: init

---

 tclreadline/pkgIndex.tcl.in        |  3 +--

 tclreadline/tclreadlineInit.tcl.in | 24 +-----------------------

 2 files changed, 2 insertions(+), 25 deletions(-)

diff --git a/tclreadline/pkgIndex.tcl.in b/tclreadline/pkgIndex.tcl.in

index b509c2d..c169240 100644

--- a/tclreadline/pkgIndex.tcl.in

+++ b/tclreadline/pkgIndex.tcl.in

@@ -7,5 +7,4 @@

 # This software is copyright under the BSD license.

 # ---

-package ifneeded tclreadline @VERSION@ \

-    [list source [file join $dir tclreadlineInit.tcl]]

+package ifneeded tclreadline @VERSION@ "[list load [file join $dir .. libtclreadline.so]]; [list source [file join $dir tclreadlineInit.tcl]]"

diff --git a/tclreadline/tclreadlineInit.tcl.in b/tclreadline/tclreadlineInit.tcl.in

index 4d98a82..02abe84 100644

--- a/tclreadline/tclreadlineInit.tcl.in

+++ b/tclreadline/tclreadlineInit.tcl.in

@@ -9,29 +9,7 @@

 package provide tclreadline @VERSION@

-namespace eval tclreadline:: {

-    namespace export Init

-}

-

-proc ::tclreadline::Init {} {

-    uplevel #0 {

-        if {![info exists tclreadline::library]} {

-            set msg ""

-            foreach dirname {@TCLRL_LIBDIR@ [file dirname [info script]]} {

-                if {[catch {load [file join $dirname libtclreadline[info sharedlibextension]]} msg] == 0} {

-                    set msg ""

-                    break

-                }

-            }

-            if {$msg != ""} {

-                puts stderr $msg

-                exit 2

-            }

-        }

-    }

-}

-

-tclreadline::Init

+namespace eval tclreadline:: {}

 ::tclreadline::readline customcompleter ::tclreadline::ScriptCompleter

 source [file join [file dirname [info script]] tclreadlineSetup.tcl]

-- 

2.29.2