[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint/files Fixed a newly introduced bug th...

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

details:   https://anonhg.NetBSD.org/pkgsrc/rev/0211a752f7f2
branches:  trunk
changeset: 498741:0211a752f7f2
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Thu Sep 01 23:24:35 2005 +0000

description:
Fixed a newly introduced bug that prevented multiple patches per file from
being detected.

diffstat:

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

diffs (28 lines):

diff -r abaaf4ae3524 -r 0211a752f7f2 pkgtools/pkglint/files/pkglint.pl
--- a/pkgtools/pkglint/files/pkglint.pl Thu Sep 01 22:45:16 2005 +0000
+++ b/pkgtools/pkglint/files/pkglint.pl Thu Sep 01 23:24:35 2005 +0000
@@ -11,7 +11,7 @@
 # Freely redistributable.  Absolutely no warranty.
 #
 # From Id: portlint.pl,v 1.64 1998/02/28 02:34:05 itojun Exp
-# $NetBSD: pkglint.pl,v 1.263 2005/09/01 22:45:16 rillig Exp $
+# $NetBSD: pkglint.pl,v 1.264 2005/09/01 23:24:35 rillig Exp $
 #
 # This version contains lots of changes necessary for NetBSD packages
 # done by:
@@ -963,6 +963,7 @@
                my $text = $line->text;
 
                if ($text =~ qr"^@@ -\d+,(\d+) \+\d+,\d+ @@") {
+                       $line_type = "";
                        $dellines = $1;
 
                } elsif ($dellines == 0 && index($text, "--- ") == 0 && $text !~ qr"^--- \d+(?:,\d+|) ----$") {
@@ -976,6 +977,7 @@
                        $line_type = "+";
 
                } elsif ($dellines > 0 && $text =~ qr"^(?:-|\s)") {
+                       $line_type = "";
                        $dellines--;
 
                } else {