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