[pkgsrc/trunk]: pkgsrc/pkgtools/pkglint/files - Found the one variable that s...

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

details:   https://anonhg.NetBSD.org/pkgsrc/rev/2b8c74db8b8c
branches:  trunk
changeset: 507142:2b8c74db8b8c
user:      rillig <rillig%pkgsrc.org@localhost>
date:      Fri Jan 27 02:25:52 2006 +0000

description:
- Found the one variable that slipped through when renaming $file to
  $fname.

diffstat:

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

diffs (21 lines):

diff -r 7c9217704fd0 -r 2b8c74db8b8c pkgtools/pkglint/files/pkglint.pl
--- a/pkgtools/pkglint/files/pkglint.pl Fri Jan 27 01:35:05 2006 +0000
+++ b/pkgtools/pkglint/files/pkglint.pl Fri Jan 27 02:25:52 2006 +0000
@@ -1,5 +1,5 @@
 #! @PERL@
-# $NetBSD: pkglint.pl,v 1.490 2006/01/27 00:56:26 rillig Exp $
+# $NetBSD: pkglint.pl,v 1.491 2006/01/27 02:25:52 rillig Exp $
 #
 
 # pkglint - static analyzer and checker for pkgsrc packages
@@ -374,8 +374,8 @@
 use constant AFTER     => 6;
 
 sub new($$$$) {
-       my ($class, $file, $lines, $text, $physlines) = @_;
-       my ($self) = ([$file, $lines, $text, $physlines, false, [], []]);
+       my ($class, $fname, $lines, $text, $physlines) = @_;
+       my ($self) = ([$fname, $lines, $text, $physlines, false, [], []]);
        bless($self, $class);
        return $self;
 }