view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

	unshift(@build_commands, "patch -p1 < ../../patch/nss.patch");
}

my $version;
$version = $args{version} if(exists $args{version});

if ( !defined($version) ) {
	# Not specified, so let's look it up for ourselves
	warn "Searching current download directory on HTTP server...\n";
	my $resp = HTTP::Tiny->new->get("http://".$builder->alien_repository->{host}.'/pub/mozilla.org/security/nss/releases/');
	if ( ! $resp->{success} || ! length($resp->{content}) ) {
		croak("Error accessing repository - ".$resp->{status}.": ".$resp->{reason});
	}

	# This won't work anymore if the server ever changes how it returns stuff. *shrug*
	my @versions = sort { versioncmp($a, $b) } grep(s#.*\[DIR\].*href="NSS_(\d.*)_RTM/".*#$1#, split(/\n/, $resp->{content}));
	$version = pop @versions;
}

my $location = "pub/mozilla.org/security/nss/releases/NSS_".$version."_RTM/src/";
$builder->alien_repository->{location} = $location;