From c93c61bf997ae98580fe3fecaaaf57186ba982ac Mon Sep 17 00:00:00 2001
From: Ailin Nemui <ailin@d5421s.localdomain>
Date: Wed, 19 Jul 2023 20:04:25 +0200
Subject: [PATCH] update perl requirement in install file

---
 INSTALL     | 2 +-
 meson.build | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/INSTALL b/INSTALL
index c2e05416..69bd6aa8 100644
--- a/INSTALL
+++ b/INSTALL
@@ -7,7 +7,7 @@ To compile Irssi you need:
 - meson-0.53 build system with ninja-1.8 or greater
 - glib-2.32 or greater
 - openssl (for ssl support)
-- perl-5.6 or greater (for Perl support)
+- perl-5.8 or greater (for building, and optionally Perl scripts)
 - terminfo or ncurses (for text frontend)
 
 For most people, this should work just fine:
diff --git a/meson.build b/meson.build
index c1698466..264718f2 100644
--- a/meson.build
+++ b/meson.build
@@ -402,7 +402,7 @@ int main()
   else
     xsubpp_file_c = meson.get_cross_property('perl_xsubpp', UNSET)
     if xsubpp_file_c == UNSET
-      xsubpp_file_c = run_command(build_perl, '-MExtUtils::ParseXS', '-Eprint $INC{"ExtUtils/ParseXS.pm"} =~ s{ParseXS\\.pm$}{xsubpp}r', check : true).stdout()
+      xsubpp_file_c = run_command(build_perl, '-MExtUtils::ParseXS', '-e($r = $INC{"ExtUtils/ParseXS.pm"}) =~ s{ParseXS\\.pm$}{xsubpp}; print $r', check : true).stdout()
     endif
     xsubpp = generator(build_perl,
       output : '@BASENAME@.c',