Hi!
On Wed, 2 Jul 2008, Bernd Ahlers wrote:
Antti Harri [Wed, Jul 02, 2008 at 09:58:35AM +0300] wrote:
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. :-)
No, sorry. I don't understand why you need this. $portsdir will use
/usr/ports as a default.
Well obviously because my portsdir isn't there. Every
other ports tool supports PORTSDIR variable in mk.conf,
why not out-of-date then?
Bernd
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();
Terveisin,
Antti Harri
