--- rxvt-unicode/src/rxvtperl.xs	2006/08/21 15:11:46	1.105
+++ rxvt-unicode/src/rxvtperl.xs	2006/10/03 12:13:57	1.106
@@ -1174,6 +1174,13 @@
 	OUTPUT:
         RETVAL
 
+char *
+rxvt_term::locale ()
+	CODE:
+        RETVAL = THIS->locale;
+	OUTPUT:
+        RETVAL
+
 #define TERM_OFFSET(sym) offsetof (TermWin_t, sym)
 
 #define TERM_OFFSET_width      TERM_OFFSET(width)