--- rxvt-unicode/src/rxvtperl.xs	2019/09/17 20:38:14	1.245
+++ rxvt-unicode/src/rxvtperl.xs	2021/05/08 06:16:21	1.248
@@ -84,15 +84,15 @@
 
       c.a = rgba::MAX_CC;
 
-      c.r = c.g = c.b = float_to_component (SvIV (*av_fetch (av, 0, 0)));
+      c.r = c.g = c.b = float_to_component (SvNV (*av_fetch (av, 0, 0)));
 
       if (len >= 3)
         {
-          c.g = float_to_component (SvIV (*av_fetch (av, 1, 0)));
-          c.b = float_to_component (SvIV (*av_fetch (av, 2, 0)));
+          c.g = float_to_component (SvNV (*av_fetch (av, 1, 0)));
+          c.b = float_to_component (SvNV (*av_fetch (av, 2, 0)));
 
           if (len >= 4)
-            c.a = float_to_component (SvIV (*av_fetch (av, 3, 0)));
+            c.a = float_to_component (SvNV (*av_fetch (av, 3, 0)));
         }
     }
   else if (s)
@@ -372,6 +372,9 @@
 
 static PerlInterpreter *perl;
 
+#if 0 /* we are not a library anymore, so doing this is just not worth it */
+/*THINK/TODO: this has the side effect of, of course, not calling destructors. */
+/* but therse are not guaranteed anyway... */
 rxvt_perl_interp::~rxvt_perl_interp ()
 {
   if (perl)
@@ -381,6 +384,7 @@
       PERL_SYS_TERM ();
     }
 }
+#endif
 
 void
 rxvt_perl_interp::init ()
@@ -1048,8 +1052,8 @@
     const_iv (PrivMode_MouseBtnEvent),
     const_iv (PrivMode_MouseAnyEvent),
     const_iv (PrivMode_BracketPaste),
-    const_iv (PrivMode_ExtModeMouse),
-    const_iv (PrivMode_ExtMouseRight),
+    const_iv (PrivMode_ExtMouseUTF8),
+    const_iv (PrivMode_ExtMouseUrxvt),
     const_iv (PrivMode_BlinkingCursor),
     const_iv (PrivMode_mouse_report),
     const_iv (PrivMode_Default),