From d45c6ebda50986c0c011088ff3b4e7be619ba17b Mon Sep 17 00:00:00 2001
From: Michael Stapelberg <stapelberg@users.noreply.github.com>
Date: Mon, 15 Dec 2025 18:49:41 +0100
Subject: [PATCH] t/318-i3-dmenu-desktop.t: use $Config{perlpath} (absolute)
 over $^X (#6548)
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

I noticed that the Nix build does not actually work when using the
“#!/usr/bin/env $^X” shebang because /usr/bin/env is not present in the
Nix build sandbox.

$Config{perlpath} is always absolute, so let’s prefer that.

Tested both inside and outside a Nix build sandbox.

related to https://github.com/i3/i3/pull/6537
---
 testcases/t/318-i3-dmenu-desktop.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/testcases/t/318-i3-dmenu-desktop.t b/testcases/t/318-i3-dmenu-desktop.t
index 30cc9c3f..9e279d20 100644
--- a/testcases/t/318-i3-dmenu-desktop.t
+++ b/testcases/t/318-i3-dmenu-desktop.t
@@ -23,6 +23,7 @@ use i3test::Util qw(slurp);
 use File::Temp qw(tempfile tempdir);
 use POSIX qw(mkfifo);
 use JSON::XS qw(decode_json);
+use Config;
 
 my $desktopdir = tempdir(CLEANUP => 1);
 
@@ -39,7 +40,7 @@ mkfifo("$tmpdir/fifo", 0600) or BAIL_OUT "Could not create FIFO: $!";
 
 open(my $i3msg_dump, '>', "$tmpdir/i3-msg");
 say $i3msg_dump <<EOT;
-#!/usr/bin/env $^X
+#!$Config{perlpath}
 use strict;
 use warnings;
 use JSON::XS qw(encode_json);