From 962eefcc76ba64143da17727a8edef793920f1e5 Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Sat, 21 Mar 2020 23:11:14 +0100
Subject: [PATCH] Move disabling pipe handler to pipe ns

---
 src/babashka/impl/pipe_signal_handler.clj | 11 ++++++-----
 src/babashka/main.clj                     |  3 +--
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/babashka/impl/pipe_signal_handler.clj b/src/babashka/impl/pipe_signal_handler.clj
index aee99151..c46a10e1 100644
--- a/src/babashka/impl/pipe_signal_handler.clj
+++ b/src/babashka/impl/pipe_signal_handler.clj
@@ -9,8 +9,9 @@
   (identical? :PIPE @pipe-state))
 
 (defn handle-pipe! []
-  (Signal/handle
-   (Signal. "PIPE")
-   (reify SignalHandler
-     (handle [_ _]
-       (vreset! pipe-state :PIPE)))))
+  (when-not (= "true" (System/getenv "BABASHKA_DISABLE_PIPE_HANDLER"))
+    (Signal/handle
+     (Signal. "PIPE")
+     (reify SignalHandler
+       (handle [_ _]
+         (vreset! pipe-state :PIPE))))))
diff --git a/src/babashka/main.clj b/src/babashka/main.clj
index 38a630aa..d77d5297 100644
--- a/src/babashka/main.clj
+++ b/src/babashka/main.clj
@@ -285,8 +285,7 @@ Everything after that is bound to *command-line-args*."))
 
 (defn main
   [& args]
-  (when-not (Boolean/valueOf ^String (System/getenv "BABASHKA_DISABLE_PIPE_HANDLER"))
-    (handle-pipe!))
+  (handle-pipe!)
   #_(binding [*out* *err*]
       (prn "M" (meta (get bindings 'future))))
   (binding [*unrestricted* true]