summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2017-06-26 09:03:27 +0200
committerErich Eckner <git@eckner.net>2017-06-26 09:03:27 +0200
commit2cfdacb6bfd3d82836271cfb1628ece43c84539a (patch)
treed49901f762733b295cff576b407731d316982417
parentf99d168cb80c31f81958a6dbdc73f954218213b4 (diff)
downloadarchlinuxewe.git.save-2cfdacb6bfd3d82836271cfb1628ece43c84539a.tar.xz
perlFunktionen: mangel Version, sodass weniger Handarbeit nötig ist
-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