From 0d6c6def8cef9d04e2577873f80f83fbfecfa424 Mon Sep 17 00:00:00 2001
From: Vladimir Panteleev <CyberShadow@users.noreply.github.com>
Date: Sat, 13 Dec 2025 07:30:29 +0000
Subject: [PATCH] t/318-i3-dmenu-desktop: Use $^X for generated script shebang
 (#6537)

The test creates a fake i3-msg Perl script at runtime. Previously it
used `#!/usr/bin/env perl` as the shebang, but this can fail in certain
build environments (e.g., Nix sandboxed builds) where the `perl` found
via `/usr/bin/env` may not have the same module paths as the `perl`
running the test suite.

Use `$^X` instead, which contains the path to the Perl interpreter
currently running the test. This ensures the generated script uses the
same Perl with the same `PERL5LIB` environment, guaranteeing that
`JSON::XS` and other required modules are available.
---
 testcases/t/318-i3-dmenu-desktop.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testcases/t/318-i3-dmenu-desktop.t b/testcases/t/318-i3-dmenu-desktop.t
index 9ccef925..30cc9c3f 100644
--- a/testcases/t/318-i3-dmenu-desktop.t
+++ b/testcases/t/318-i3-dmenu-desktop.t
@@ -39,7 +39,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 perl
+#!/usr/bin/env $^X
 use strict;
 use warnings;
 use JSON::XS qw(encode_json);