Get perl version in a more portable wayget_perl_ver

1 files changed, 2 insertions, 1 deletions

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