12 lines
580 B
Diff
12 lines
580 B
Diff
|
--- brltty-3.9/Bindings/Tcl/pkgutil.tcl85 2007-10-17 17:19:30.000000000 +0200
|
||
|
|
+++ brltty-3.9/Bindings/Tcl/pkgutil 2008-01-04 16:07:25.000000000 +0100
|
||
|
|
@@ -31,7 +31,7 @@
|
||
|
|
}
|
||
|
|
set directory [eval file join / [lrange $components $rootCount end]]
|
||
|
|
|
||
|
|
- if {[lsearch -exact {lib lib64} [file tail $directory]] >= 0} {
|
||
|
|
+ if {[regexp /lib(64)?(/|$) $directory] >= 0} {
|
||
|
|
global optionValues packageName packageVersion
|
||
|
|
return [file join "$optionValues(root)$directory" "$packageName-$packageVersion"]
|
||
|
|
}
|