perl-5.38.patch


1
2
3
4
5
6
7
8
9
10
11
12
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;