diff options
| author | rillig <rillig@pkgsrc.org> | 2007-11-04 12:17:10 +0000 |
|---|---|---|
| committer | rillig <rillig@pkgsrc.org> | 2007-11-04 12:17:10 +0000 |
| commit | b85607e79617a9452492e2cac539215ff2231e53 (patch) | |
| tree | 27cf01502fc18af37a5323ffa1a6191d54365a7e | |
| parent | 0cd03791324bc636350f4813d63b3b62c9059c60 (diff) | |
| download | pkgsrc-b85607e79617a9452492e2cac539215ff2231e53.tar.gz | |
The fifth field in a CVS/Entries file is the keyword mode. It doesn't
have to be always empty.
| -rw-r--r-- | pkgtools/pkglint/files/pkglint.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pkgtools/pkglint/files/pkglint.pl b/pkgtools/pkglint/files/pkglint.pl index 9b2c0f36b89..8ad89246711 100644 --- a/pkgtools/pkglint/files/pkglint.pl +++ b/pkgtools/pkglint/files/pkglint.pl @@ -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 @@ sub checkdir_CVS($) { 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); } } |