diff options
author | rillig <rillig> | 2006-01-27 02:25:52 +0000 |
---|---|---|
committer | rillig <rillig> | 2006-01-27 02:25:52 +0000 |
commit | b66f950313b57eace414130b7cf9afe9a77c336c (patch) | |
tree | 6b57fcfe9c4784c2cdaa53920a137374967aeffb /pkgtools | |
parent | 752d57f7e380d61bdbde7082ef837611ef1d50a2 (diff) | |
download | pkgsrc-b66f950313b57eace414130b7cf9afe9a77c336c.tar.gz |
- Found the one variable that slipped through when renaming $file to
$fname.
Diffstat (limited to 'pkgtools')
-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 51f2fe902f9..d57160fa89d 100644 --- a/pkgtools/pkglint/files/pkglint.pl +++ b/pkgtools/pkglint/files/pkglint.pl @@ -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 BEFORE => 5; 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; } |