From 31111726f1bfbc3802b17b909e16cf9e782dfeaa Mon Sep 17 00:00:00 2001
From: rillig <rillig>
Date: Sat, 29 Jul 2006 10:56:03 +0000
Subject: Since dots are common in pathnames, include them when looking for
 absolute pathnames.

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

(limited to 'pkgtools')

diff --git a/pkgtools/pkglint/files/pkglint.pl b/pkgtools/pkglint/files/pkglint.pl
index 8234e7f5f14..083350739fa 100644
--- a/pkgtools/pkglint/files/pkglint.pl
+++ b/pkgtools/pkglint/files/pkglint.pl
@@ -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 @@ sub checkline_other_absolute_pathname($$) {
 
 	$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"\@$") {
-- 
cgit v1.2.3