diff options
author | rillig <rillig@pkgsrc.org> | 2005-05-18 03:48:43 +0000 |
---|---|---|
committer | rillig <rillig@pkgsrc.org> | 2005-05-18 03:48:43 +0000 |
commit | 8c4803e6f8d98bd0597ae5c8e94177b081c33f5d (patch) | |
tree | 9033f409d7d92d778edefdaad7356889417b7b59 /pkgtools/pkglint/files/pkglint.pl | |
parent | 8f0986cd27b18d2dc8247efbc2f47d9f0ac2daa7 (diff) | |
download | pkgsrc-8c4803e6f8d98bd0597ae5c8e94177b081c33f5d.tar.gz |
Renamed PkgLint::FileUtils to PkgLint::FileUtil, for consistency with Util.
Diffstat (limited to 'pkgtools/pkglint/files/pkglint.pl')
-rw-r--r-- | pkgtools/pkglint/files/pkglint.pl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/pkgtools/pkglint/files/pkglint.pl b/pkgtools/pkglint/files/pkglint.pl index cbbe885d140..9a596e5091e 100644 --- a/pkgtools/pkglint/files/pkglint.pl +++ b/pkgtools/pkglint/files/pkglint.pl @@ -11,7 +11,7 @@ # Freely redistributable. Absolutely no warranty. # # From Id: portlint.pl,v 1.64 1998/02/28 02:34:05 itojun Exp -# $NetBSD: pkglint.pl,v 1.150 2005/05/18 03:47:24 rillig Exp $ +# $NetBSD: pkglint.pl,v 1.151 2005/05/18 03:48:43 rillig Exp $ # # This version contains lots of changes necessary for NetBSD packages # done by Hubert Feyrer <hubertf@netbsd.org>, @@ -170,14 +170,14 @@ sub is_verbose() } #== End of PkgLint::Logging =============================================== -package PkgLint::FileUtils; +package PkgLint::FileUtil; #========================================================================== # This package provides some file handling subroutines. The subroutine # load_file reads a file into memory as an array of lines. A line is a # record that contains the fields C<file>, C<lineno> and C<text>. #========================================================================== -package PkgLint::FileUtils::Line; +package PkgLint::FileUtil::Line; sub new($$$$) { my ($class, $file, $lineno, $text) = @_; my ($self) = ({}); @@ -212,9 +212,9 @@ package PkgLint::FileUtils::Line; my ($self, $text) = @_; PkgLint::Logging::log_info($self->file, $self->lineno, $text); } -# end of PkgLint::FileUtils::Line +# end of PkgLint::FileUtil::Line -package PkgLint::FileUtils; +package PkgLint::FileUtil; BEGIN { use Exporter; use vars qw(@ISA @EXPORT_OK); @@ -232,13 +232,13 @@ sub load_file($) { while (defined($line = <F>)) { $lineno++; $line =~ s/\r*\n*\z//; - push(@$result, PkgLint::FileUtils::Line->new($fname, $lineno, $line)); + push(@$result, PkgLint::FileUtil::Line->new($fname, $lineno, $line)); } close(F) or return undef; return $result; } -#== End of PkgLint::FileUtils ============================================= +#== End of PkgLint::FileUtil ============================================== package main; use strict; @@ -255,7 +255,7 @@ BEGIN { log_error log_warning log_info print_summary_and_exit ); - import PkgLint::FileUtils qw( + import PkgLint::FileUtil qw( load_file ); } |