diff --git a/expire.module b/expire.module
index 985c0d7f4062eca2cfcb420df258a4d3718d05d9..b532b608be51fcd8ab2610b80e9d415dafe09220 100644
--- a/expire.module
+++ b/expire.module
@@ -233,3 +233,16 @@ function _expire_get_expiration_handler($type) {
   }
   return $cache_objects[$type];
 }
+
+/**
+ * Simple print_r to html function.
+ *
+ * @param $data
+ *   Array with output data.
+ *
+ * @return string
+ *   print_r contents in nicely formatted html.
+ */
+function expire_print_r($data) {
+  return str_replace('    ', '    ', nl2br(htmlentities(print_r($data, TRUE))));
+}