File cecilia-CVE-2008-1832.patch of Package cecilia
--- lib/prefs.tcl
+++ lib/prefs.tcl
@@ -180,26 +180,9 @@
global ceclib
if [catch {set csound [exec which csound]}] {
return [localCsound]
- } {
- puts "info: $csound found; verifying version"
- catch {exec $csound >& /tmp/csvers}
- set f [open /tmp/csvers r]
- while ![eof $f] {
- set l [gets $f ]
- if [regexp Version $l] { break }
- }
-
- close $f
- if ![regexp 4 [lindex $l 2]] {
- puts "info: $csound version incorrect (probably <3.47)"
- return [localCsound]
- } {
- puts "info: $csound version correct"
- return $csound
- }
+ } else {
+ return $csound
}
- puts "error: something is wrong with the Csound executable; check your prefs"
- return {}
}
proc sethelper {app} {