[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint/files Don't treat comments as paragra...

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

details:   https://anonhg.NetBSD.org/pkgsrc/rev/c2c194794518
branches:  trunk
changeset: 514786:c2c194794518
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Sun Jun 18 01:01:40 2006 +0000

description:
Don't treat comments as paragraph separators for the SUBST check. See
graphics/xfig for an example where it makes a difference.

diffstat:

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

diffs (24 lines):

diff -r 6065c9ae2cb7 -r c2c194794518 pkgtools/pkglint/files/pkglint.pl
--- a/pkgtools/pkglint/files/pkglint.pl Sun Jun 18 00:56:11 2006 +0000
+++ b/pkgtools/pkglint/files/pkglint.pl Sun Jun 18 01:01:40 2006 +0000
@@ -1,5 +1,5 @@
 #! @PERL@
-# $NetBSD: pkglint.pl,v 1.629 2006/06/18 00:51:34 rillig Exp $
+# $NetBSD: pkglint.pl,v 1.630 2006/06/18 01:01:40 rillig Exp $
 #
 
 # pkglint - static analyzer and checker for pkgsrc packages
@@ -4837,9 +4837,12 @@
                checkline_trailing_whitespace($line);
                checkline_spellcheck($line);
 
-               if ($text =~ qr"^\s*$" || $text =~ qr"^#") {
+               if ($text =~ qr"^\s*$") {
                        $substcontext->check_end($line);
 
+               } elsif ($text =~ qr"^#") {
+                       # No further checks.
+
                } elsif ($text =~ regex_varassign) {
                        my ($varname, $op, $value, $comment) = ($1, $2, $3, $4);
                        my $space1 = substr($text, $+[1], $-[2] - $+[1]);