out-of-date fix

[Antti Harri]

Hi,

I got annoyed by having to use environment variable
for $PORTSDIR all the time so I propose this fix
that I and Johan Kiviniemi made.

Works for me. :-)

Index: infrastructure/build/out-of-date
===================================================================
RCS file: /cvs/ports/infrastructure/build/out-of-date,v
retrieving revision 1.16
diff -u -r1.16 out-of-date
--- infrastructure/build/out-of-date    1 Jun 2007 15:01:50 -0000       1.16
+++ infrastructure/build/out-of-date    2 Jul 2008 06:48:49 -0000
@@ -25,6 +25,7 @@
 use OpenBSD::PackageName;
 use OpenBSD::ProgressMeter;
 use File::Temp;
+use IPC::Open2;

 our $opt_q;
 set_usage('out-of-date [-q]');
@@ -221,7 +222,17 @@
        }
 }

-my $portsdir = $ENV{PORTSDIR} || "/usr/ports";
+sub portsdir
+{
+       my $out;
+       {
+               open2 $out, my $in, "make", "-f", "-" or die "open2";
+               print {$in} ".include <bsd.own.mk>\nall:[EMAIL PROTECTED] '%s' 
\"\${PORTSDIR}\"";
+       }
+       scalar <$out>
+}
+
+my $portsdir = portsdir();

 print STDERR "Collecting installed packages\n";
 my $pkg = collect_installed();