cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

if stuff does not resolve, show a better error message, to help people

Browse Source 
with broken symlinks
This commit is contained in:
espie 2011-06-02 17:00:14 +00:00
parent 6f34f245fb
commit 0594474469
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
infrastructure/bin/getpkgpath
View File

@ -1,6 +1,6 @@
#! /usr/bin/perl
# $OpenBSD: getpkgpath,v 1.1 2010/08/20 15:01:12 espie Exp $
# $OpenBSD: getpkgpath,v 1.2 2011/06/02 17:00:14 espie Exp $
#
# Copyright (c) 2006 Marc Espie <espie@openbsd.org>
#
@ -25,8 +25,14 @@ my $path = $ENV{PORTSDIR_PATH} or exit 1;
my $pkgpath;
my $real_dir = abs_path($dir);
if (!defined $real_dir) {
print STDERR "Error: $dir does not resolve (broken symlink ?)\n";
}
for my $d (split ':', $path) {
my $real_d = abs_path($d);
if (!defined $real_d) {
print STDERR "Error: $d does not resolve (broken symlink ?)\n";
}
if ($real_dir =~ m/^\Q$real_d\E\//) {
my $newpath = $';
if (!defined $pkgpath or length $newpath < length $pkgpath) {