diff options
Diffstat (limited to 'perlFunktionen')
-rwxr-xr-x | perlFunktionen | 19 |
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 |