From b1582c56a530042d62ad410867e032ddf3401d64 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Fri, 29 Apr 2016 14:51:37 +0200
Subject: neuesPerlPaket kann jetzt gängige Substitutionen
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 neuesPerlPaket | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'neuesPerlPaket')

diff --git a/neuesPerlPaket b/neuesPerlPaket
index 823ae88c..7652953a 100755
--- a/neuesPerlPaket
+++ b/neuesPerlPaket
@@ -6,6 +6,17 @@ then
   exit 1
 fi
 
+declare -A substitutionen
+
+substitutionen["perl"]="%skip"
+substitutionen["strict"]="%skip"
+substitutionen["warnings"]="%skip"
+substitutionen["test-more"]="test-simple"
+substitutionen["http-headers"]="http-message"
+substitutionen["http-request-common"]="http-message"
+substitutionen["io-file"]="io"
+substitutionen["file-spec-functions"]="pathtools"
+
 cpanName="$(echo "$1" | sed 's|::|-|g')"
 url="https://metacpan.org/release/${cpanName}"
 pkgname="perl-${cpanName,,}"
@@ -79,8 +90,11 @@ do
         sed "s|::|-|g" | \
         tr "[[:upper:]]" "[[:lower:]]"
     )"
-    [ "${key}" == "perl" ] && continue
-    [ "${key}" == "test-more" ] && continue
+    [ -n "${substitutionen["${key}"]}" ] && \
+      key="${substitutionen["${key}"]}"
+
+    [ "${key}" == "%skip" ] && continue
+
     key="perl-${key}"
     value="$(
       echo "${s}" | \
-- 
cgit v1.2.3-54-g00ecf