Simplify exec

diff --git a/dsc b/dsc
index 6b503594967fb49c5093507fe13fb1fdc5d18221a79f1915184a5b4cb8bb671d..fcc6ec368b5f266c9bb2fa0bced18d0b344fd59c51900eeb7dace78db14e0562 100755 (executable)
--- a/dsc
+++ b/dsc
@@ -94,18 +94,10 @@ proc is-bin {opt} {
 }
 
 proc run-checker {opt v} {
-    lassign [pipe] r w
     global Schema
-    set fh [open |[list "$Schema/[find-opt-schema $opt]/check" $opt 2>@1 >@$w] w]
-    puts $fh $v
-    set failed no
+    set fh [open |[list "$Schema/[find-opt-schema $opt]/check" $opt 2>@1 << $v] r]
+    set v [$fh read]
     if {[catch {close $fh}]} {
-        set failed yes
-    }
-    close $w
-    set v [$r read]
-    close $r
-    if {$failed} {
         puts -nonewline stderr $v
         exit 1
     }