Group :: Shelss
RPM: tcl-readline
Main Changelog Spec Patches Sources Download Gear Bugs e FR Repocop
Patch: tclreadline-2.1.0-init.patch
Download
Download
--- tclreadline-2.1.0/tclreadlineInit.tcl.in~ 2004-11-03 18:33:01 +0300
+++ tclreadline-2.1.0/tclreadlineInit.tcl.in 2004-11-03 18:34:35 +0300
@@ -11,22 +11,7 @@
package provide tclreadline @VERSION@
-namespace eval tclreadline:: {
- namespace export Init
-}
-
-proc ::tclreadline::Init {} {
- uplevel #0 {
- if ![info exists tclreadline::library] {
- if [catch {load [file join @TCLRL_LIBDIR@ libtclreadline[info sharedlibextension]]} 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]
--- tclreadline-2.1.0/pkgIndex.tcl.in~ 2004-11-03 18:33:01 +0300
+++ tclreadline-2.1.0/pkgIndex.tcl.in 2004-11-03 18:37:44 +0300
@@ -9,5 +9,4 @@
# Copyright (c) 1998 - 2001, Johannes Zellner <johannes@zellner.org>
# 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 .. .. .. lib tcl libtclreadline.so]]; [list source [file join $dir tclreadlineInit.tcl]]"