--- rxvt-unicode/src/rxvtperl.xs	2010/12/16 23:03:50	1.134
+++ rxvt-unicode/src/rxvtperl.xs	2010/12/18 18:17:38	1.135
@@ -345,7 +345,7 @@
           ""
           "use urxvt;"
         };
-        int argc = sizeof (args) / sizeof (args[0]);
+        int argc = ARRAY_LENGTH(args);
         char **argv = args;
 
         PERL_SYS_INIT3 (&argc, &argv, &environ);
@@ -772,7 +772,7 @@
 #   endif
   };
 
-  for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
+  for (civ = const_iv + ARRAY_LENGTH(const_iv); civ-- > const_iv; )
     newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
 }
 
@@ -1450,7 +1450,7 @@
 #	  undef reserve
         };
 
-        rs = rslist + sizeof (rslist) / sizeof (rslist [0]);
+        rs = rslist + ARRAY_LENGTH(rslist);
 
         if (*name)
           {