diff options
| author | crees <crees@FreeBSD.org> | 2012-10-29 19:37:56 +0800 |
|---|---|---|
| committer | crees <crees@FreeBSD.org> | 2012-10-29 19:37:56 +0800 |
| commit | d5b79280a1e14f138eefec20b0966c70c99d9f75 (patch) | |
| tree | 3949417c49ca6bc5a47cd187b26e33dc12755683 /Tools/scripts/addport | |
| parent | d221c8de89c75ba4e30a51ab6a4924af1544969f (diff) | |
| download | freebsd-ports-gnome-d5b79280a1e14f138eefec20b0966c70c99d9f75.tar.gz freebsd-ports-gnome-d5b79280a1e14f138eefec20b0966c70c99d9f75.tar.zst freebsd-ports-gnome-d5b79280a1e14f138eefec20b0966c70c99d9f75.zip | |
Freefall doesn't have LWP::Simple, so use /usr/bin/fetch to reduce dependencies
Noticed by: thierry
Feature safe: yes
Diffstat (limited to 'Tools/scripts/addport')
| -rwxr-xr-x | Tools/scripts/addport | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Tools/scripts/addport b/Tools/scripts/addport index 15d0d49381dd..e7c83e0b8c56 100755 --- a/Tools/scripts/addport +++ b/Tools/scripts/addport @@ -41,7 +41,6 @@ use Cwd "abs_path"; use Getopt::Std; use Sys::Hostname; -use LWP::Simple; use locale; use strict; @@ -324,8 +323,8 @@ foreach my $thisdir (@dirs) { # Until svn revs are in the database, we'll use dates. print "Checking for previous versions of $category/$portname... \n"; my $previous_incarnation = "bogus"; - my $oldportlist; - if ($oldportlist = get('http://people.FreeBSD.org/~crees/removed_ports/index.xml')) { + my $oldportlist = `/usr/bin/fetch -qo - http://people.FreeBSD.org/~crees/removed_ports/index.xml`; + if ($oldportlist !=~ /^fetch:[^:]+: Not Found/) { foreach (split("\n", $oldportlist)) { if (/^ +\<port\>$category\/$portname(?:\<removed_revision\>r([0-9]*)\<\/removed_revision\>)?\<removed_date\>([^<]*)/) { print "Found one!\n"; |