[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint/files Pathnames should generally not ...

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

details:   https://anonhg.NetBSD.org/pkgsrc/rev/271ea97a8996
branches:  trunk
changeset: 514801:271ea97a8996
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Sun Jun 18 08:20:19 2006 +0000

description:
Pathnames should generally not start with a slash.

diffstat:

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

diffs (28 lines):

diff -r 5c28d8a3ec53 -r 271ea97a8996 pkgtools/pkglint/files/pkglint.pl
--- a/pkgtools/pkglint/files/pkglint.pl Sun Jun 18 08:18:18 2006 +0000
+++ b/pkgtools/pkglint/files/pkglint.pl Sun Jun 18 08:20:19 2006 +0000
@@ -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 @@
                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) {