[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint/files - Renamed checkfile_patches_pat...

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

details:   https://anonhg.NetBSD.org/pkgsrc/rev/75832016004b
branches:  trunk
changeset: 505730:75832016004b
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Fri Jan 06 17:43:18 2006 +0000

description:
- Renamed checkfile_patches_patch to checkfile_patch.

diffstat:

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

diffs (33 lines):

diff -r e09dee3af179 -r 75832016004b pkgtools/pkglint/files/pkglint.pl
--- a/pkgtools/pkglint/files/pkglint.pl Fri Jan 06 17:40:08 2006 +0000
+++ b/pkgtools/pkglint/files/pkglint.pl Fri Jan 06 17:43:18 2006 +0000
@@ -1,5 +1,5 @@
 #! @PERL@ -w
-# $NetBSD: pkglint.pl,v 1.450 2006/01/06 13:42:47 rillig Exp $
+# $NetBSD: pkglint.pl,v 1.451 2006/01/06 17:43:18 rillig Exp $
 #
 
 # pkglint - static analyzer and checker for pkgsrc packages
@@ -3001,11 +3001,11 @@
        autofix($lines);
 }
 
-sub checkfile_patches_patch($) {
+sub checkfile_patch($) {
        my ($fname) = @_;
        my ($lines, $files_in_patch, $patch_state, $line_type, $dellines);
 
-       log_info($fname, NO_LINE_NUMBER, "[checkfile_patches_patch]");
+       log_info($fname, NO_LINE_NUMBER, "[checkfile_patch]");
 
        checkperms($fname);
        if (!($lines = load_file($fname))) {
@@ -3288,7 +3288,7 @@
                $opt_check_MESSAGE and checkfile_MESSAGE($fname);
 
        } elsif ($basename =~ qr"^patch-[A-Za-z0-9]*$") {
-               $opt_check_patches and checkfile_patches_patch($fname);
+               $opt_check_patches and checkfile_patch($fname);
 
        } elsif ($fname =~ qr"(?:^|/)patches/[^/]*$") {
                log_warning($fname, NO_LINE_NUMBER, "Patch files should be named \"patch-\", followed by letters and digits only.");