| @@ -1,15 +1,15 @@ | | | @@ -1,15 +1,15 @@ |
| 1 | #! @PERL@ | | 1 | #! @PERL@ |
| 2 | # $NetBSD: pkglint.pl,v 1.762 2008/01/31 14:00:17 rillig Exp $ | | 2 | # $NetBSD: pkglint.pl,v 1.763 2008/02/13 20:14:49 reed Exp $ |
| 3 | # | | 3 | # |
| 4 | | | 4 | |
| 5 | # pkglint - static analyzer and checker for pkgsrc packages | | 5 | # pkglint - static analyzer and checker for pkgsrc packages |
| 6 | # | | 6 | # |
| 7 | # Written by: | | 7 | # Written by: |
| 8 | # Roland Illig <rillig@NetBSD.org> | | 8 | # Roland Illig <rillig@NetBSD.org> |
| 9 | # | | 9 | # |
| 10 | # Based on work by: | | 10 | # Based on work by: |
| 11 | # Hubert Feyrer <hubertf@NetBSD.org> | | 11 | # Hubert Feyrer <hubertf@NetBSD.org> |
| 12 | # Thorsten Frueauf <frueauf@NetBSD.org> | | 12 | # Thorsten Frueauf <frueauf@NetBSD.org> |
| 13 | # Thomas Klausner <wiz@NetBSD.org> | | 13 | # Thomas Klausner <wiz@NetBSD.org> |
| 14 | # and others. | | 14 | # and others. |
| 15 | # | | 15 | # |
| @@ -7540,27 +7540,27 @@ sub checkfile_PLIST($) { | | | @@ -7540,27 +7540,27 @@ sub checkfile_PLIST($) { |
| 7540 | } | | 7540 | } |
| 7541 | checkline_rcsid($lines->[0], "\@comment "); | | 7541 | checkline_rcsid($lines->[0], "\@comment "); |
| 7542 | | | 7542 | |
| 7543 | if (@$lines == 1) { | | 7543 | if (@$lines == 1) { |
| 7544 | $lines->[0]->log_warning("PLIST files shouldn't be empty."); | | 7544 | $lines->[0]->log_warning("PLIST files shouldn't be empty."); |
| 7545 | $lines->[0]->explain_warning( | | 7545 | $lines->[0]->explain_warning( |
| 7546 | | | 7546 | |
| 7547 | "One reason for empty PLISTs is that this is a newly created package", | | 7547 | "One reason for empty PLISTs is that this is a newly created package", |
| 7548 | "and that the author didn't run \"bmake print-PLIST\" after installing", | | 7548 | "and that the author didn't run \"bmake print-PLIST\" after installing", |
| 7549 | "the files.", | | 7549 | "the files.", |
| 7550 | "", | | 7550 | "", |
| 7551 | "Another reason, common for Perl packages, is that the PLIST is", | | 7551 | "Another reason, common for Perl packages, is that the PLIST is", |
| 7552 | "automatically generated. Since there is no use of the empty PLIST file,", | | 7552 | "automatically generated. Since there is no use of the empty PLIST file,", |
| 7553 | "it shouldn't be necessary."); | | 7553 | "it shouldn't be necessary. Also PLIST is not needed for meta packages."); |
| 7554 | } | | 7554 | } |
| 7555 | | | 7555 | |
| 7556 | # Get the list of all files from the PLIST. | | 7556 | # Get the list of all files from the PLIST. |
| 7557 | my $all_files = {}; | | 7557 | my $all_files = {}; |
| 7558 | my $all_dirs = {}; | | 7558 | my $all_dirs = {}; |
| 7559 | my $extra_lines = []; | | 7559 | my $extra_lines = []; |
| 7560 | if (basename($fname) eq "PLIST.common_end") { | | 7560 | if (basename($fname) eq "PLIST.common_end") { |
| 7561 | my $common_lines = load_file(dirname($fname) . "/PLIST.common"); | | 7561 | my $common_lines = load_file(dirname($fname) . "/PLIST.common"); |
| 7562 | if ($common_lines) { | | 7562 | if ($common_lines) { |
| 7563 | $extra_lines = $common_lines; | | 7563 | $extra_lines = $common_lines; |
| 7564 | } | | 7564 | } |
| 7565 | } | | 7565 | } |
| 7566 | | | 7566 | |