diff options
| author | rillig <rillig@pkgsrc.org> | 2006-01-27 02:25:52 +0000 |
|---|---|---|
| committer | rillig <rillig@pkgsrc.org> | 2006-01-27 02:25:52 +0000 |
| commit | 0d54162e3d41263b9a7e3241a9528419b9ead32c (patch) | |
| tree | 6b57fcfe9c4784c2cdaa53920a137374967aeffb | |
| parent | 0b40edee1d557e1c9ecaad67ccc1de1c329fb41f (diff) | |
| download | pkgsrc-0d54162e3d41263b9a7e3241a9528419b9ead32c.tar.gz | |
- Found the one variable that slipped through when renaming $file to
$fname.
| -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; } |