diff options
Diffstat (limited to 'Tools/scripts')
| -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"; |