--- rxvt-unicode/src/rxvtperl.xs	2006/01/09 01:36:56	1.46
+++ rxvt-unicode/src/rxvtperl.xs	2006/01/09 02:06:43	1.47
@@ -717,6 +717,13 @@
         OUTPUT:
         RETVAL
 
+bool
+safe ()
+	CODE:
+        RETVAL = !rxvt_tainted ();
+        OUTPUT:
+        RETVAL
+
 NV
 NOW ()
 	CODE: