| … | … | ||
|---|---|---|---|
| 397 | void | 397 | void |
| 398 | rxvt_perl_interp::init () | 398 | rxvt_perl_interp::init () |
| 399 | { | 399 | { |
| 400 | if (!perl) | 400 | if (!perl) |
| 401 | { | 401 | { |
| 402 | rxvt_push_locale (""); // perl init destroys current locale | 402 | rxvt_push_locale ("C"); // perl init destroys current locale |
| 403 | 403 | ||
| 404 | { | 404 | { |
| 405 | perl_environ = rxvt_environ; | 405 | perl_environ = rxvt_environ; |
| 406 | localise_env set_environ (perl_environ); | 406 | localise_env set_environ (perl_environ); |
| 407 | 407 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |