[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint/files Since dots are common in pathna...

[rillig <rillig%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/043b0ae00a24
branches:  trunk
changeset: 516844:043b0ae00a24
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Sat Jul 29 10:56:03 2006 +0000

description:
Since dots are common in pathnames, include them when looking for
absolute pathnames.

diffstat:

 pkgtools/pkglint/files/pkglint.pl |  4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diffs (19 lines):

diff -r 10ceabd89499 -r 043b0ae00a24 pkgtools/pkglint/files/pkglint.pl
--- a/pkgtools/pkglint/files/pkglint.pl Sat Jul 29 09:13:59 2006 +0000
+++ b/pkgtools/pkglint/files/pkglint.pl Sat Jul 29 10:56:03 2006 +0000
@@ -1,5 +1,5 @@
 #! @PERL@
-# $NetBSD: pkglint.pl,v 1.666 2006/07/29 09:13:59 rillig Exp $
+# $NetBSD: pkglint.pl,v 1.667 2006/07/29 10:56:03 rillig Exp $
 #
 
 # pkglint - static analyzer and checker for pkgsrc packages
@@ -3632,7 +3632,7 @@
 
        $opt_debug_trace and $line->log_debug("checkline_other_absolute_pathname(\"${text}\")");
 
-       if ($text =~ qr"^(.*?)((?:/[\w]+)*/(?:bin|dev|etc|home|lib|mnt|opt|proc|sbin|tmp|usr|var)\b[\w./\-]*)(.*)$") {
+       if ($text =~ qr"^(.*?)((?:/[\w.]+)*/(?:bin|dev|etc|home|lib|mnt|opt|proc|sbin|tmp|usr|var)\b[\w./\-]*)(.*)$") {
                my ($before, $path, $after) = ($1, $2, $3);
 
                if ($before =~ qr"\@$") {