bumpPerl: use perl version from the database - so we don't need to install a recent perl first

1 files changed, 8 insertions, 4 deletions

diff --git a/bumpPerl b/bumpPerl
index 97c96abb3..d36790989 100755
--- a/bumpPerl
+++ b/bumpPerl
@@ -4,10 +4,14 @@ me="$(readlink -f $0)"
 cd $(dirname "${me}")
 
 perlMinor=$(
-  pacman -Q perl | \
-    sed '
-      s/^\S\+ //
-    '
+  bsdtar -tf /var/lib/pacman/sync/core.db \
+  | sed -n '
+    s@^perl-@@
+    T
+    s@-[0-9]\+/desc$@@
+    T
+    /^[0-9.]\+$/p
+  '
 )
 perlMajor="${perlMinor%%.*}"
 perlMinor="${perlMinor#${perlMajor}.}"