--- rxvt-unicode/src/rxvtperl.xs	2007/05/01 21:10:04	1.113
+++ rxvt-unicode/src/rxvtperl.xs	2007/08/27 18:31:00	1.114
@@ -75,12 +75,6 @@
 }
 
 static SV *
-new_ref (HV *hv, const char *klass)
-{
-  return sv_bless (newRV ((SV *)hv), gv_stashpv (klass, 1));
-}
-
-static SV *
 newSVptr (void *ptr, const char *klass)
 {
   HV *hv = newHV ();
@@ -1403,7 +1397,6 @@
 	CODE:
 {
         wchar_t *wstr = sv2wcs (text);
-        int wlen = wcslen (wstr);
         int dlen = 0;
 
         // find length