openbsd-ports/telephony/iaxclient/patches/patch-simpleclient_tkphone_tkiaxphone

$OpenBSD: patch-simpleclient_tkphone_tkiaxphone,v 1.2 2011/01/05 18:00:10 sebastia Exp $
--- simpleclient/tkphone/tkiaxphone.orig	Mon Apr  7 18:05:28 2008
+++ simpleclient/tkphone/tkiaxphone	Sun Dec 12 13:17:17 2010
@@ -1,4 +1,4 @@
-#!/bin/bash
+#!/bin/sh
 # TK interface to iax client library command line interface.
 # Copyright 2004-2005 Sun Microsystems, by Stephen Uhler.
 # see License for license terms
@@ -49,11 +49,11 @@ if {$tcl_platform(platform) == "windows"} {
 }
 
 # uname -m -s seems to be the most x-plaform on unices
-if {$tcl_platform(platform) == "unix"} {
-   set ext -[exec uname -s]-[exec uname -m]
-   set platform(pref_format) ".%src"
-   append platform(cli_cmd) $ext
-}
+#if {$tcl_platform(platform) == "unix"} {
+#   set ext -[exec uname -s]-[exec uname -m]
+#   set platform(pref_format) ".%src"
+#   append platform(cli_cmd) $ext
+#}
 
 # verify sufficient tk version number (need spinbox)
 
@@ -86,7 +86,7 @@ proc real_path {file} {
     if {[info exists env(IAXPHONEHOME)]} {
 	set base $env(IAXPHONEHOME)
     } else {
-	set base [file dirname [file join [pwd] $argv0]]
+	set base "${LOCALBASE}/lib/tcl/tkphone"
     }
     set result [file join $base $file]
     debug "$result"