Pathnames should generally not start with a slash.

1 files changed, 7 insertions, 1 deletions

diff --git a/pkgtools/pkglint/files/pkglint.pl b/pkgtools/pkglint/files/pkglint.pl
index 22d1227f6f4..4612c7015bd 100644
--- a/pkgtools/pkglint/files/pkglint.pl
+++ b/pkgtools/pkglint/files/pkglint.pl
@@ -1,5 +1,5 @@
 #! @PERL@
-# $NetBSD: pkglint.pl,v 1.631 2006/06/18 01:08:08 rillig Exp $
+# $NetBSD: pkglint.pl,v 1.632 2006/06/18 08:20:19 rillig Exp $
 #
 
 # pkglint - static analyzer and checker for pkgsrc packages
@@ -4195,11 +4195,17 @@ sub checkline_mk_vartype_basic($$$$$$$) {
 		if ($value_novar !~ qr"^[-0-9A-Za-z._~+%*?/\[\]]*$") {
 			$line->log_warning("\"${value}\" is not a valid pathname mask.");
 		}
+		if ($value =~ qr"^/") {
+			$line->log_warning("Found absolute pathname: ${value}.");
+		}
 
 	} elsif ($type eq "Pathname") {
 		if ($value_novar !~ qr"^[-0-9A-Za-z._~+%/]*$") {
 			$line->log_warning("\"${value}\" is not a valid pathname.");
 		}
+		if ($value =~ qr"^/") {
+			$line->log_warning("Found absolute pathname: ${value}.");
+		}
 
 	} elsif ($type eq "Perl5Packlist") {
 		if ($value ne $value_novar) {