From 5e88194661ccd499bd36e27bd9857c81328cd242 Mon Sep 17 00:00:00 2001
From: Danny Milosavljevic <dannym@scratchpost.org>
Date: Thu, 7 Jun 2018 21:38:37 +0200
Subject: gnu: qucs: Patch bootstrapping scripts.

* gnu/packages/engineering.scm (qucs)[arguments]<#:phases>[patch-bootstrap]:
New phase.
---
 gnu/packages/engineering.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index b40599dc19..bacf1613fe 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -1531,6 +1531,14 @@ parallel computing platforms.  It also supports serial execution.")
       (arguments
        `(#:phases
          (modify-phases %standard-phases
+           (add-before 'bootstrap 'patch-bootstrap
+             (lambda _
+               (for-each patch-shebang
+                         '("bootstrap"
+                           "qucs/bootstrap"
+                           "qucs-doc/bootstrap"
+                           "qucs-core/bootstrap"))
+               #t))
            (add-before 'configure 'patch-configure
              (lambda* (#:key inputs #:allow-other-keys)
                (substitute* "qucs/configure"
-- 
cgit 1.4.1