From 86f6b0ac4ce2be997c00d568a527586c2f57f3b5 Mon Sep 17 00:00:00 2001
From: Mark Allen <mrallen1@yahoo.com>
Date: Tue, 23 May 2017 15:26:21 -0500
Subject: Get perl version in a more portable way

---
 kerl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/kerl b/kerl
index bbb569c..918e123 100755
--- a/kerl
+++ b/kerl
@@ -391,7 +391,8 @@ get_otp_version()
 get_perl_version()
 {
     if assert_perl; then
-        perl -v | grep version | sed $SED_OPT -e 's/.*v5\.([0-9]+)\.[0-9].*/\1/'
+        # This is really evil but it's portable and it works. Don't @ me bro
+        perl -e 'print int(($] - 5)*1000)'
     else
         echo "FATAL: I couldn't find perl which is required to compile Erlang."
         exit 1
-- 
cgit v1.2.3