From f53eb6d6d4f183935a5a43c86b4a6d2b9af0d417 Mon Sep 17 00:00:00 2001
From: Leah Neukirchen <leah@vuxu.org>
Date: Mon, 25 Sep 2023 22:03:35 +0200
Subject: [PATCH] rxvt-unicode: backport patch for perl 5.38.

---
 srcpkgs/rxvt-unicode/patches/perl5.38.patch | 13 +++++++++++++
 srcpkgs/rxvt-unicode/template               |  2 +-
 2 files changed, 14 insertions(+), 1 deletion(-)
 create mode 100644 srcpkgs/rxvt-unicode/patches/perl5.38.patch

diff --git a/srcpkgs/rxvt-unicode/patches/perl5.38.patch b/srcpkgs/rxvt-unicode/patches/perl5.38.patch
new file mode 100644
index 00000000000..948dc963e35
--- /dev/null
+++ b/srcpkgs/rxvt-unicode/patches/perl5.38.patch
@@ -0,0 +1,13 @@
+diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs
+index 25b1144b..f664f397 100644
+--- a/src/rxvtperl.xs
++++ b/src/rxvtperl.xs
+@@ -399,7 +399,7 @@ rxvt_perl_interp::init ()
+ {
+   if (!perl)
+     {
+-      rxvt_push_locale (""); // perl init destroys current locale
++      rxvt_push_locale ("C"); // perl init destroys current locale
+ 
+       {
+         perl_environ = rxvt_environ;
diff --git a/srcpkgs/rxvt-unicode/template b/srcpkgs/rxvt-unicode/template
index db3cdd68685..be45963a0cd 100644
--- a/srcpkgs/rxvt-unicode/template
+++ b/srcpkgs/rxvt-unicode/template
@@ -1,7 +1,7 @@
 # Template file for 'rxvt-unicode'
 pkgname=rxvt-unicode
 version=9.31
-revision=2
+revision=3
 build_style=gnu-configure
 configure_args="
  --with-terminfo=/usr/share/terminfo --enable-256-color