From 8f06ffbed9703aa7d6208eff6abf2956e6796d6f Mon Sep 17 00:00:00 2001
From: Trevor Batley <trevor@batley.id.au>
Date: Wed, 27 Mar 2024 18:21:03 +1100
Subject: [PATCH] fix cpan bug link

---
 git-getperl.sh | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/git-getperl.sh b/git-getperl.sh
index e3bd1cf..d28349e 100755
--- a/git-getperl.sh
+++ b/git-getperl.sh
@@ -109,7 +109,7 @@ for word in ${words[@]}; do
 	if [ $ShortName ] ; then
 		ShortName="$ShortName-$word"
 	else
-		Shortname="$word"
+		ShortName="$word"
 	fi
 done
 if [ $DEBUG ] ; then echo "RepoName=$RepoName" ; fi
@@ -385,7 +385,7 @@ for fpath in $SOURCES; do
 	if [ $DEBUG ] ; then echo "$fpathfile" ; fi
 	translatefpath=$(rpm --queryformat "$fpathfile\n" --specfile $(basename $SPECFILE) | head -n 1)
 	if [ $DEBUG ] ; then echo "$translatefpath" ; fi
-	if [[ -f $perlFiles/$RepoName/$BASEORCONTRIB/$translatefpath ]] ; then 	
+	if [[ -f $perlFiles/$RepoName/$translatefpath ]] ; then 	
 		if [ $DEBUG ] ; then echo "************Copying $perlFiles/$RepoName/$translatefpath" ; fi
 		cp $perlFiles/$RepoName/$translatefpath . 
 	else
@@ -450,7 +450,7 @@ SMEServer Koozali local git repo for $RepoName
 https://metacpan.org/pod/$MODULENAME
 
 ## Bugs
-CPAN bug report are [here](https://rt.cpan.org/Public/Dist/Display.html?Name=${ShortName})
+CPAN bug report are [here](https://rt.cpan.org/Public/Dist/Display.html?Name=$ShortName)
 
 Show list of Koozali outstanding bugs: [here](https://bugs.koozali.org/buglist.cgi?component=$RepoName&product=SME%20Server%2011.X&query_format=advanced&limit=0&bug_status=UNCONFIRMED&bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&bug_status=CONFIRMED)