aboutsummaryrefslogtreecommitdiff
path: root/ports-mgmt/porteasy
diff options
context:
space:
mode:
authorDag-Erling Smørgrav <des@FreeBSD.org>2004-07-05 11:48:35 +0000
committerDag-Erling Smørgrav <des@FreeBSD.org>2004-07-05 11:48:35 +0000
commit80b65796e7fa82b87377da56df01609d580adff9 (patch)
tree9d48fb09db8a619a34f8bafc37369574d7255c72 /ports-mgmt/porteasy
parent6e6ca62578c732bbc66ec950eab0795dbbd6e8c5 (diff)
downloadports-80b65796e7fa82b87377da56df01609d580adff9.tar.gz
ports-80b65796e7fa82b87377da56df01609d580adff9.zip
Notes
Diffstat (limited to 'ports-mgmt/porteasy')
-rw-r--r--ports-mgmt/porteasy/Makefile2
-rw-r--r--ports-mgmt/porteasy/src/porteasy.pl11
2 files changed, 10 insertions, 3 deletions
diff --git a/ports-mgmt/porteasy/Makefile b/ports-mgmt/porteasy/Makefile
index 7f9415ea66f4..f51b03d0e15f 100644
--- a/ports-mgmt/porteasy/Makefile
+++ b/ports-mgmt/porteasy/Makefile
@@ -8,7 +8,7 @@
#
PORTNAME= porteasy
-PORTVERSION= 2.7.15
+PORTVERSION= 2.7.16
CATEGORIES= misc
MASTER_SITES= # none
DISTFILES= # none
diff --git a/ports-mgmt/porteasy/src/porteasy.pl b/ports-mgmt/porteasy/src/porteasy.pl
index 1dfbf82ad467..ecbb90528428 100644
--- a/ports-mgmt/porteasy/src/porteasy.pl
+++ b/ports-mgmt/porteasy/src/porteasy.pl
@@ -33,7 +33,7 @@ use strict;
use Fcntl;
use Getopt::Long;
-my $VERSION = "2.7.15";
+my $VERSION = "2.7.16";
my $COPYRIGHT = "Copyright (c) 2000-2004 Dag-Erling Smørgrav. " .
"All rights reserved.";
@@ -532,7 +532,8 @@ sub get_installed() {
or bsd::err(1, "can't read database directory");
foreach $port (readdir(DIR)) {
next if ($port eq "." || $port eq ".." || ! -d "$dbdir/$port");
- if (!defined($origin = get_origin($port))) {
+ $origin = get_origin($port);
+ if (!defined($origin) || !$origin) {
bsd::warnx("$port has no known origin");
} else {
if ($installed{$origin}) {
@@ -869,14 +870,20 @@ sub show_port_plist($) {
local *FILE; # File handle
my $file; # File name
my %files; # Files to list
+ my %plist_sub; # Substitution list
my $prefix; # Prefix
+ foreach (split(' ', capture(\&make, ($port, "-VPLIST_SUB")))) {
+ next unless m/^(\w+)=\"?(.*?)\"?$/;
+ $plist_sub{$1} = $2;
+ }
$prefix = capture(\&make, ($port, "-VPREFIX"));
chomp($prefix);
sysopen(FILE, find_port_file($port, "pkg-plist"), O_RDONLY)
or bsd::err(1, "can't read packing list for $port");
while (<FILE>) {
chomp();
+ s/\%\%(\w+)\%\%/$plist_sub{$1}/g;
$file = undef;
if (m/^[^\@]/) {
$file = $_;