From 2cfdacb6bfd3d82836271cfb1628ece43c84539a Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 26 Jun 2017 09:03:27 +0200
Subject: perlFunktionen: mangel Version, sodass weniger Handarbeit nötig ist
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 perlFunktionen | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'perlFunktionen')

diff --git a/perlFunktionen b/perlFunktionen
index fdd7bf8d..1ee1137c 100755
--- a/perlFunktionen
+++ b/perlFunktionen
@@ -127,7 +127,10 @@ versteheMetaYml() {
     done
     metaInfos["${sucheWonach}"]="$(
       echo "${metaInfos["${sucheWonach}"]}" | \
-        versionsUniq
+        versionsUniq | \
+        tr ' ' '\n' | \
+        mangle_versions | \
+        tr '\n' ' '
     )"
   done
 
@@ -187,6 +190,20 @@ versteheMetaYml() {
   echo "... fertig"
 }
 
+mangle_versions() {
+  local pre
+  local post
+  if [ $# -eq 1 ]; then
+    pre="s|^|$1=|"
+    post='s|^[^=]*=||'
+  fi
+  sed "${pre}"'
+    /^perl-extutils-makemaker[<>=]/{
+      s|\.\([0-9][0-9]\)\([0-9]\+\)|.\1.\2|
+    }
+  '"${post}"
+}
+
 declare -A metaInfos
 declare -A metaRegexe
 declare -A metaSubst
-- 
cgit v1.2.3-54-g00ecf