From 63fbbab332c56a8044df0542ee01bc8c051deb5d Mon Sep 17 00:00:00 2001
From: Darren 'Tadgy' Austin <darren@afterdark.org.uk>
Date: Fri, 7 Oct 2022 17:33:12 +0100
Subject: [PATCH] Sync with 0.6.9 template.

---
 source/cpan-modules/cpan-modules.SlackBuild | 24 ++++++++++-----------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/source/cpan-modules/cpan-modules.SlackBuild b/source/cpan-modules/cpan-modules.SlackBuild
index 635ea7c..bdb430f 100755
--- a/source/cpan-modules/cpan-modules.SlackBuild
+++ b/source/cpan-modules/cpan-modules.SlackBuild
@@ -1,5 +1,5 @@
 #!/bin/bash
-# Version: 0.6.6
+# Version: 0.6.9
 # Copyright (c) 2005-2022:
 #   Darren 'Tadgy' Austin <darren (at) afterdark.org.uk>
 # Licensed under the terms of the GNU General Public License version 3.
@@ -12,6 +12,9 @@
 # Silence shellcheck.
 # shellcheck disable=SC2015,SC2174
 
+# extglob is required.
+shopt -s extglob
+
 # Functions.
 check_installed() {
   # $1 = The package name to check is installed.
@@ -161,12 +164,12 @@ rm -rf "$BUILD_ROOT" && mkdir -m 755 "$BUILD_ROOT" || die "Failed to clear build
   WGET="$(command -v wget)"
   I=0
   while read -r SRC; do
-    [[ ! -e "${SRC_FILENAMES[$I]}" ]] && {
+    [[ ! -e "${SRC_FILENAMES[I]}" ]] && {
       [[ -z "$WGET" ]] && die "wget is required to download sources"
-      "$WGET" -t 3 -c -T 30 -w 5 --retry-connrefused --retry-on-host-error --no-check-certificate --passive-ftp -O "${SRC_FILENAMES[$I]}" "$SRC" || \
-          { rm "${SRC_FILENAMES[$I]}"; die "Failed to download source file: $SRC"; }
+      "$WGET" -t 3 -c -T 30 -w 5 --retry-connrefused --retry-on-host-error --no-check-certificate --passive-ftp -O "${SRC_FILENAMES[I]}" "$SRC" || \
+          { rm "${SRC_FILENAMES[I]}"; die "Failed to download source file: $SRC"; }
     }
-    [[ "$(md5sum "${SRC_FILENAMES[$I]}" | cut -d' ' -f1)" != "${SRC_MD5SUMS[$I]}" ]] && die "md5sum verification failed: ${SRC_FILENAMES[$I]}"
+    [[ "$(md5sum "${SRC_FILENAMES[I]}" | cut -d' ' -f1)" != "${SRC_MD5SUMS[I]}" ]] && die "md5sum verification failed: ${SRC_FILENAMES[I]}"
     (( I++ ))
   done < <(printf "%s\\n" "${SRC_DOWNLOADS[@]}")
 }
@@ -225,23 +228,20 @@ sed -r -e "s:%CC%:${BUILD_ALTCC:+CC=\"$BUILD_ALTCC\"}:g" -e "s:%CXX%:${BUILD_ALT
 
 # Process each of the sources.
 for ((I = 0; I < ${#BUILD_PERL_MODULES[@]}; I++)); do
-  # Be in the source directory.
-  cd "$BUILD_WORKDIR/${SRC_DIRNAMES[$I]}" || die "Failed to change to source directory: $BUILD_WORKDIR/${SRC_DIRNAMES[$I]}"
-
   ############################################
   # Begin section that will require editing. #
   ############################################
 
   # Build each module.
-  if perl -M"${BUILD_PERL_MODULES[$I]}" -e0 >/dev/null 2>&1; then
+  if perl -M"${BUILD_PERL_MODULES[I]}" -e0 >/dev/null 2>&1; then
     printf "\\n\\033[1;32;40m%s\\n" "********************************************************************************"
-    printf "* %s: %s\\n" "Already Installed" "${BUILD_PERL_MODULES[$I]}"
+    printf "* %s: %s\\n" "Already Installed" "${BUILD_PERL_MODULES[I]}"
     printf "%s\\033[0;39m\\n" "********************************************************************************"
   else
     printf "\\n\\033[1;33;40m%s\\n" "********************************************************************************"
-    printf "* %s: %s\\n" "Building and installing" "${BUILD_PERL_MODULES[$I]}"
+    printf "* %s: %s\\n" "Building and installing" "${BUILD_PERL_MODULES[I]}"
     printf "%s\\033[0;39m\\n" "********************************************************************************"
-    cpan -j "$BUILD_WORKDIR/$PKG_NAME-$PKG_VERSION/ModulesConfig.pm" -fi "${BUILD_PERL_MODULES[$I]}" || die "Module build failed: ${BUILD_PERL_MODULES[$I]}"
+    cpan -j "$BUILD_WORKDIR/$PKG_NAME-$PKG_VERSION/ModulesConfig.pm" -fi "${BUILD_PERL_MODULES[I]}" || die "Module build failed: ${BUILD_PERL_MODULES[I]}"
   fi
 done