Move disabling pipe handler to pipe ns

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))))))

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]