perlFunktionen: mangel Version, sodass weniger Handarbeit nötig ist

1 files changed, 18 insertions, 1 deletions

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