src/up2date/perl.sh.in

updatecmd_perl()
{
	local pname=$1
	local archive
	local uppver

	[[ -z ${pname} ]] && die "give me a \$PNAME"
	[[ ! -z $2 ]] && archive="$2"

	uppver=$(updatecmd "http://search.cpan.org/dist/${pname}/" | lasttarball "${archive}")

	if [[ ! -z ${UP2SUBSTITUTE} ]]
	then
		echo "${uppver}" | sed "s:${UP2SUBSTITUTE}::g"
	else
		echo "${uppver}"
	fi
}
1	updatecmd_perl()
2	{
3	local pname=$1
4	local archive
5	local uppver
6
7	[[ -z ${pname} ]] && die "give me a \$PNAME"
8	[[ ! -z $2 ]] && archive="$2"
9
10	uppver=$(updatecmd "http://search.cpan.org/dist/${pname}/" \| lasttarball "${archive}")
11
12	if [[ ! -z ${UP2SUBSTITUTE} ]]
13	then
14	echo "${uppver}" \| sed "s:${UP2SUBSTITUTE}::g"
15	else
16	echo "${uppver}"
17	fi
18	}