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	niro	2591	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			}