git » rxvt-unicode.git » main » tree

[main] / 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;