*** empty log message ***

diff --git a/Changes b/Changes
index 2f83c30d9360ad18a52f0f68cf9eb039db46a93c..e231354ad0ab929cedaed84ec2dc9e585d3600f3 100644 (file)
--- a/Changes
+++ b/Changes
@@ -21,7 +21,7 @@ WISH: kick out xpm.C, replace by pixbuf
 DUMB: support tex fonts
 
 TODO: fix rounding of colors when !xft (#aaaaaa => #a9a900) (do not use correct, but expected value)
-
+03:05 <Aiviru> Hrm. I've found that my problem isn't so much urxvt, though it /does/ seem to ignore colorRV
        - fix make depend in src/, reported by exg.
         - fixed typo in urxvt::GET_CUSTOM, causing the result to be wrong.
           (patch by Sergey Vlasov).

diff --git a/src/iom_perl.h b/src/iom_perl.h
index fffe96b40ea1a24672f87ae2564e4c3f6c31ea8f..6ee524fa27a88dc087de84f132c1622850b7ce28 100644 (file)
--- a/src/iom_perl.h
+++ b/src/iom_perl.h
@@ -1,5 +1,11 @@
 typedef int IOM_CHAINED;
 
+static SV *
+iom_new_ref (HV *hv, const char *klass)
+{
+  return sv_bless (newRV ((SV *)hv), gv_stashpv (klass, 1));
+}
+
 /////////////////////////////////////////////////////////////////////////////
 
 #define SvWATCHER(sv) (perl_watcher *)SvPTR (sv, IOM_CLASS "::watcher")
@@ -55,7 +61,7 @@ perl_watcher::invoke (const char *type, SV *self, int arg)
     IOM_WARN ("%s callback evaluation error: %s", type, SvPV_nolen (ERRSV));
 }
 
-#define newSVtimer(timer) new_ref ((timer)->self, IOM_CLASS "::timer")
+#define newSVtimer(timer) iom_new_ref ((timer)->self, IOM_CLASS "::timer")
 #define SvTIMER(sv) (timer *)(perl_watcher *)SvPTR ((sv), IOM_CLASS "::timer")
 
 struct timer : perl_watcher, time_watcher
@@ -76,7 +82,7 @@ struct timer : perl_watcher, time_watcher
   }
 };
 
-#define newSViow(iow) new_ref ((iow)->self, IOM_CLASS "::iow")
+#define newSViow(iow) iom_new_ref ((iow)->self, IOM_CLASS "::iow")
 #define SvIOW(sv) (iow *)(perl_watcher *)SvPTR ((sv), IOM_CLASS "::iow")
 
 struct iow : perl_watcher, io_watcher
@@ -92,7 +98,7 @@ struct iow : perl_watcher, io_watcher
   }
 };
 
-#define newSViw(iw) new_ref ((iw)->self, IOM_CLASS "::iw")
+#define newSViw(iw) iom_new_ref ((iw)->self, IOM_CLASS "::iw")
 #define SvIW(sv) (iw *)(perl_watcher *)SvPTR ((sv), IOM_CLASS "::iw")
 
 struct iw : perl_watcher, idle_watcher
@@ -108,7 +114,7 @@ struct iw : perl_watcher, idle_watcher
   }
 };
 
-#define newSVpw(pw) new_ref ((pw)->self, IOM_CLASS "::pw")
+#define newSVpw(pw) iom_new_ref ((pw)->self, IOM_CLASS "::pw")
 #define SvPW(sv) (pw *)(perl_watcher *)SvPTR ((sv), IOM_CLASS "::pw")
 
 struct pw : perl_watcher, child_watcher