From: Sergey Matveev <stargrave@stargrave.org>
Date: Fri, 21 Nov 2025 13:04:09 +0000 (+0300)
Subject: Simplify exec
X-Git-Url: http://www.git.cypherpunks.su/?a=commitdiff_plain;h=ca2ca5d71b2e6aaa8361ecdfde015131faaf9f3f5768f1eb6ff7b929dbbe892e;p=dsc.git

Simplify exec
---

diff --git a/dsc b/dsc
index 6b50359..fcc6ec3 100755
--- 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
     }