From b4830e97ae51396ccaa9ca2acb469aef80094ae8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?M=C3=A1rcio=20Silva?= <coadde at hyperbola dot info>
Date: Fri, 2 Jun 2017 15:44:54 -0300
Subject: Add initial files from envbot v0.1-beta1

---
 contrib/modules/m_perl/safe_eval.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 contrib/modules/m_perl/safe_eval.pl

(limited to 'contrib/modules/m_perl/safe_eval.pl')

diff --git a/contrib/modules/m_perl/safe_eval.pl b/contrib/modules/m_perl/safe_eval.pl
new file mode 100644
index 0000000..1e6489f
--- /dev/null
+++ b/contrib/modules/m_perl/safe_eval.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use strict;
+use Safe;
+
+my $expr = shift;
+
+my $cpt = new Safe;
+
+#Basic variable IO and traversal
+
+$cpt->permit(':base_core');
+
+$SIG{ALRM} = sub {
+	die "Alarm";
+};
+
+alarm(4);
+
+my $ret = $cpt->reval($expr);
+
+if ($@) {
+	print $@;
+} else {
+	print $ret;
+}
-- 
cgit v1.2.3