Date: Mon, 29 Oct 2012 11:37:56 +0000 (UTC) From: Chris Rees <crees@FreeBSD.org> To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r306602 - head/Tools/scripts Message-ID: <201210291137.q9TBbu3J051657@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: crees Date: Mon Oct 29 11:37:56 2012 New Revision: 306602 URL: http://svn.freebsd.org/changeset/ports/306602 Log: Freefall doesn't have LWP::Simple, so use /usr/bin/fetch to reduce dependencies Noticed by: thierry Feature safe: yes Modified: head/Tools/scripts/addport Modified: head/Tools/scripts/addport ============================================================================== --- head/Tools/scripts/addport Mon Oct 29 11:21:58 2012 (r306601) +++ head/Tools/scripts/addport Mon Oct 29 11:37:56 2012 (r306602) @@ -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";
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201210291137.q9TBbu3J051657>