From c5b427ba90669c9c1e8d1a8d92590f44e0a2ad3d Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 18 May 2021 09:26:22 +0200
Subject: perlFunktionen: _pinned_dependencies beachten

---
 perlFunktionen | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'perlFunktionen')

diff --git a/perlFunktionen b/perlFunktionen
index be88b6bf1..f373f5e66 100755
--- a/perlFunktionen
+++ b/perlFunktionen
@@ -49,7 +49,15 @@ ladePkgbuild() {
 
   makepkg -f --verifysource
 
-  . PKGBUILD
+  . <(
+    sed '
+      /^\s*_pinned_dependencies\S*=(.*)/ d
+      /^\s*_pinned_dependencies\S*=(/,/)/ d
+    ' PKGBUILD
+  )
+  if grep -qF _pinned_dependencies PKGBUILD; then
+    depends+=('"${_pinned_dependencies[@]}"')
+  fi
 }
 
 versteheMetaYml() {
@@ -89,6 +97,8 @@ versteheMetaYml() {
         sed "s@\(\sperl:\s\+\)'\?\([[:digit:]]\+\)\.\([[:digit:]]\{3\}\)\([[:digit:]]\+\)'\?\(\s\|\$\)@\1\2.\3.\4\5@" | \
         sed "s@\(\sperl:\s\+\)'\?\([[:digit:]]\+\)[._]0*\([1-9][[:digit:]]*\)[._]0*\([1-9][[:digit:]]*\)'\?\(\s\|\$\)@\1\2.\3.\4\5@" | \
         sed "s@\(\sperl:\s\+\)'\?\([[:digit:]]\+\)[._]0*\([1-9][[:digit:]]*\)[._]0\+'\?\(\s\|\$\)@\1\2.\3.0\4@"
+      ! grep -qwF _pinned_dependencies PKGBUILD \
+      || printf 'depends:"${_pinned_dependencies[@]}"\n'
     )"
 
     echo -n "... fertig, "
-- 
cgit v1.2.3-54-g00ecf