[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint/files The fifth field in a CVS/Entrie...

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

details:   https://anonhg.NetBSD.org/pkgsrc/rev/1f0fbfd251c9
branches:  trunk
changeset: 534962:1f0fbfd251c9
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Sun Nov 04 12:17:10 2007 +0000

description:
The fifth field in a CVS/Entries file is the keyword mode. It doesn't
have to be always empty.

diffstat:

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

diffs (24 lines):

diff -r aca847502f9e -r 1f0fbfd251c9 pkgtools/pkglint/files/pkglint.pl
--- a/pkgtools/pkglint/files/pkglint.pl Sun Nov 04 12:08:05 2007 +0000
+++ b/pkgtools/pkglint/files/pkglint.pl Sun Nov 04 12:17:10 2007 +0000
@@ -1,5 +1,5 @@
 #! @PERL@
-# $NetBSD: pkglint.pl,v 1.725 2007/10/31 19:24:52 rillig Exp $
+# $NetBSD: pkglint.pl,v 1.726 2007/11/04 12:17:10 rillig Exp $
 #
 
 # pkglint - static analyzer and checker for pkgsrc packages
@@ -7668,11 +7668,11 @@
        return unless $cvs_entries;
 
        foreach my $line (@$cvs_entries) {
-               my ($type, $fname, $mtime, $date, $empty, $tag, $undef) = my_split("/", $line->text);
+               my ($type, $fname, $mtime, $date, $keyword_mode, $tag, $undef) = my_split("/", $line->text);
                next if ($type eq "D" && !defined($fname));
                assert($type eq "" || $type eq "D", "Unknown line format: " . $line->text);
                assert(defined($tag), "Unknown line format: " . $line->text);
-               assert(defined($empty) && $empty eq "", "Unknown line format: " . $line->text);
+               assert(defined($keyword_mode), "Unknown line format: " . $line->text);
                assert(!defined($undef), "Unknown line format: " . $line->text);
        }
 }