summaryrefslogtreecommitdiff
path: root/perlFunktionen
diff options
context:
space:
mode:
Diffstat (limited to 'perlFunktionen')
-rwxr-xr-xperlFunktionen19
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