File gentoo-result-url-516071.patch of Package whohas

Overview Repositories Revisions Requests Users Attributes Meta

File gentoo-result-url-516071.patch of Package whohas (Revision f7e2b6192e443574db5b3ee5fbdf0408)

Currently displaying revision f7e2b6192e443574db5b3ee5fbdf0408 , Show latest

#! /bin/sh /usr/share/dpatch/dpatch-run
## 35-gentoo-result-url-516071.dpatch by Jonathan Wiltshire <debian@jwiltshire.org.uk>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: Return a more official link to the gentoo package, where more useful
## DP: information can be found

@DPATCH@
--- whohas-0.23.orig/program/whohas
+++ whohas-0.23/program/whohas
@@ -800,6 +800,7 @@
 
 sub gentoo {
 	my $gentoobase = "http://gentoo-portage.com";
+	my $gentoobaseofficial = "http://packages.gentoo.org/package";
 	my $distroname = "Gentoo";
 	my @names;
 	my @versions;
@@ -821,6 +822,7 @@
 						my @dosparts = split /\//, $parts[1];
 						$dosparts[1] =~ / +$/;
 						my $tempurl = $gentoobase."/".$dosparts[0]."/".$dosparts[1];
+						my $officialurl = $gentoobaseofficial."/".$dosparts[0]."/".$dosparts[1];
 						my @newlines = split /\n/, &fetchdoc($tempurl);
 						for (my $li = 0; $li < @newlines; $li++) {
 							if ($newlines[$li] =~ /\<li class\=\"[a-z]+ebuildrow\"/) {
@@ -833,7 +835,7 @@
 								}
 								push @names, $dosparts[1];
 								push @groups, $dosparts[0];
-								push @urls, $tempurl;
+								push @urls, $officialurl;
 								push @versions, $vernum;
 								push @repos, "";
 								push @sizes, "";

Places

File gentoo-result-url-516071.patch of Package whohas (Revision f7e2b6192e443574db5b3ee5fbdf0408)

Places