blob: d7548c1e9b95026498e692c3ab5ade06c509abd0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
$NetBSD: patch-ad,v 1.11 2003/07/03 14:40:49 agc Exp $
--- ../src/sdr.tcl.orig Mon Sep 4 18:30:39 2000
+++ ../src/sdr.tcl
@@ -4457,7 +4457,7 @@
# find where we are installed
set app_name $argv0
-while {[file type $app_name] == "link"} {
+while {([file isfile $app_name]) && ([file type $app_name] == "link")} {
# don't worry about recursion since we know app must exist.
set app_name [file readlink $app_name]
}
@@ -4470,6 +4470,7 @@
$app_home/sdr/plugins \
$app_home/plugins \
$app_home/../plugins \
+ @PREFIX@/etc/sdr/plugins \
/usr/local/etc/sdr/plugins \
[resource sdrHome]/plugins \
]
@@ -4538,7 +4539,7 @@
# find where we are installed
set app_name $argv0
-while {[file type $app_name] == "link"} {
+while {([file isfile $app_name]) && ([file type $app_name] == "link")} {
# don't worry about recursion since we know app must exist.
set app_name [file readlink $app_name]
}
|
