--- rxvt-unicode/src/rxvtperl.xs	2015/03/17 09:23:08	1.236
+++ rxvt-unicode/src/rxvtperl.xs	2015/06/17 11:59:37	1.237
@@ -1389,7 +1389,7 @@
 #define TERM_OFFSET_top_row     TERM_OFFSET(top_row)
 
 int
-rxvt_term::width ()
+rxvt_term::width (int new_value = NO_INIT)
 	ALIAS:
            width       = TERM_OFFSET_width
            height      = TERM_OFFSET_height
@@ -1409,6 +1409,8 @@
            top_row     = TERM_OFFSET_top_row
 	CODE:
         RETVAL = *(int *)((char *)THIS + ix);
+        if (items > 1)
+          *(int *)((char *)THIS + ix) = new_value;
         OUTPUT:
         RETVAL