GNU bug report logs - #77474
wrap-script: breaks shebang

Message received at submit <at> debbugs.gnu.org:

Received: (at submit) by debbugs.gnu.org; 3 Apr 2025 01:05:55 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Wed Apr 02 21:05:55 2025
Received: from localhost ([127.0.0.1]:60071 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1u091m-0005YK-T7
	for submit <at> debbugs.gnu.org; Wed, 02 Apr 2025 21:05:55 -0400
Received: from lists.gnu.org ([2001:470:142::17]:43186)
 by debbugs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.84_2) (envelope-from <dziltener@HIDDEN>)
 id 1u091j-0005Y0-GL
 for submit <at> debbugs.gnu.org; Wed, 02 Apr 2025 21:05:52 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10])
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <dziltener@HIDDEN>)
 id 1u091W-0000a9-H5
 for bug-guix@HIDDEN; Wed, 02 Apr 2025 21:05:40 -0400
Received: from 195-15-241-199.dc3-a.pub1.etik-cloud.com ([195.15.241.199]
 helo=lyrion.ch)
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <dziltener@HIDDEN>)
 id 1u091S-0007Or-F5
 for bug-guix@HIDDEN; Wed, 02 Apr 2025 21:05:38 -0400
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=lyrion.ch; s=20230702; 
 t=1743641917;
 h=from:from:reply-to:subject:subject:date:date:message-id:message-id:
 to:to:cc:mime-version:mime-version:content-type:content-type:
 content-transfer-encoding:content-transfer-encoding;
 bh=7p0ZnBsNr7HeIQXdzCJo/D6okJw4z1/sSJ5YBZyttDg=;
 b=ccn1jpNzaBHVqMb1rB/R98wPaP8fDSPnydBOQ5WHeh/R8rOirqoWSgxNJ0SysPWIQ59BxV
 qhsQ+ruGrHDQiJTNl9FoezP1Aafty50z+HAQcAvABrmFpViWFjXKHbi2i9zIvGAZ7KgGy/
 /hSJn5IxmM/UjQ0jGyFKC18VBoFYIuRaTb6MG3j35KM5O7DgIxBdOXU4gYz240wXqU4X+y
 V67USyCx3iMQb8t2Fvlwcbvb78kJKb69OWi71gg4yrXRHZPo2WT9H8kOinMyFS4w5hepV7
 WOjjlamQDtg838pAbOYUctmQ4JZbyyWyYK4f9KRt4dVve9iNKca1x/OLcfpEWg==
Received: from [192.168.178.54] (cf59784b.dynamic.tele-ag.de [207.89.120.75])
 by lyrion.ch (OpenSMTPD) with ESMTPSA id a31c5fa6
 (TLSv1.3:TLS_AES_256_GCM_SHA384:256:NO) for <bug-guix@HIDDEN>;
 Thu, 3 Apr 2025 00:58:37 +0000 (UTC)
Message-ID: <d3f952ab-9257-4314-8c88-3d6f14d4fba2@HIDDEN>
Date: Thu, 3 Apr 2025 02:58:36 +0200
MIME-Version: 1.0
User-Agent: Betterbird (Linux)
Content-Language: en-US
To: bug-guix@HIDDEN
From: Daniel Ziltener <dziltener@HIDDEN>
Subject: wrap-script: breaks shebang
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Received-SPF: pass client-ip=195.15.241.199; envelope-from=dziltener@HIDDEN;
 helo=lyrion.ch
X-Spam_score_int: -10
X-Spam_score: -1.1
X-Spam_bar: -
X-Spam_report: (-1.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1,
 DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1,
 RCVD_IN_VALIDITY_CERTIFIED_BLOCKED=0.001, RCVD_IN_VALIDITY_RPBL_BLOCKED=0.001,
 RDNS_DYNAMIC=0.982, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001,
 TVD_RCVD_IP=0.001 autolearn=no autolearn_force=no
X-Spam_action: no action
X-Spam-Score: 0.9 (/)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -0.1 (/)

"wrap-script" seems to be fully broken. It replaces the shebang with 
`#!#f --no-auto-compile`. The input is a bash script with a Guix bash 
shebang. I found out by writing a package:


```
(define-public hdrop
   (package
    (name "hdrop")
    (version "0.7.7")
    (source
     (origin
      (method git-fetch)
      (uri
       (git-reference
        (url "https://github.com/Schweber/hdrop.git")
        (commit (string-append "v" version))))
      (sha256
       (base32
        "1iwvh0lgmpjpwq6h5fvgdn7rc0pvpywiar8inzwwjk0zfq5p5s2g"))))
    (build-system copy-build-system)
    (inputs
     (list hyprland
           jq
           libnotify))
    (arguments
     (list
      #:install-plan
      #~(list '("hdrop" "bin/hdrop"))
      #:phases
      #~(modify-phases %standard-phases
                       (add-after 'install 'wrap-hdrop
                                  (lambda _
                                    (wrap-script
                                     (string-append #$output "/bin/hdrop")
                                     '("PATH" suffix (#$(file-append jq 
"/bin")
#$(file-append hyprland "/bin")))))))
      ))
    (home-page "https://github.com/Schweber/hdrop")
    (synopsis "Emulate 'tdrop' in Hyprland (run, show and hide programs 
via keybind - similar to a dropdown terminal)")
    (description "Emulate 'tdrop' in Hyprland (run, show and hide 
programs via keybind - similar to a dropdown terminal)")
    (license license:agpl3)))
```

"wrap-program", on the other hand, which I now ended up using, works 
properly.