88ee212890
Copy from devel:languages:tcl/tkinfo based on submit request 23275 from user rmax OBS-URL: https://build.opensuse.org/request/show/23275 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/tkinfo?expand=0&rev=5
18 lines
313 B
Diff
18 lines
313 B
Diff
--- tkinfo
|
|
+++ tkinfo
|
|
@@ -3727,6 +3727,14 @@
|
|
}
|
|
}
|
|
}
|
|
+ foreach suf $tki(infoSuffix) {
|
|
+ foreach extrasuf {"" .gz .Z .z .bz2} {
|
|
+ set filePath "$fileName-*$suf$extrasuf"
|
|
+ if {[catch {glob $filePath} result] == 0} {
|
|
+ return [lindex [lsort $result] 0]
|
|
+ }
|
|
+ }
|
|
+ }
|
|
return ""
|
|
}
|
|
|