svn commit: r379446 - head/Tools/scripts

[Pawel Pekala]

Author: pawel
Date: Fri Feb 20 16:30:26 2015
New Revision: 379446
URL: https://svnweb.freebsd.org/changeset/ports/379446
QAT: https://qat.redports.org/buildarchive/r379446/

Log:
  Support non default ports path.
  
  PR:		194423
  Submitted by:	myself
  Approved by:	maintainer timeout (4 months), trivial - just fix it

Modified:
  head/Tools/scripts/portsearch

Modified: head/Tools/scripts/portsearch
==============================================================================
--- head/Tools/scripts/portsearch	Fri Feb 20 16:25:32 2015	(r379445)
+++ head/Tools/scripts/portsearch	Fri Feb 20 16:30:26 2015	(r379446)
@@ -46,8 +46,11 @@ use vars qw/ $key @list %fields %list %o
 my $osrel = `/usr/bin/uname -r`;
 $osrel =~ s/\..+$//s;
 
+my $portsdir = "/usr/ports";
+$portsdir = $ENV{PORTSDIR} if ( defined $ENV{'PORTSDIR'} );
+
 my $VERSION = "1.0";
-my $file = "/usr/ports/INDEX" . ($osrel <= 4 ? "" : "-$osrel");
+my $file = "$portsdir/INDEX" . ($osrel <= 4 ? "" : "-$osrel");
 my $match = 1;
 my $count = 0;
 my $fulldesc = 0;