diff options
author | rillig <rillig> | 2005-08-01 23:54:09 +0000 |
---|---|---|
committer | rillig <rillig> | 2005-08-01 23:54:09 +0000 |
commit | d092e40f1ac11665592a857151bbbd9dda79dbc1 (patch) | |
tree | 09830c94c3f3c13684f565efa1192aef65e24c1d /pkgtools | |
parent | ff425e83a87a6fd4b704b9e4e45992e8219f17c6 (diff) | |
download | pkgsrc-d092e40f1ac11665592a857151bbbd9dda79dbc1.tar.gz |
Some more speed optimization.
Diffstat (limited to 'pkgtools')
-rw-r--r-- | pkgtools/pkglint/files/pkglint.pl | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/pkgtools/pkglint/files/pkglint.pl b/pkgtools/pkglint/files/pkglint.pl index af87c746de9..c3289715ff8 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.225 2005/08/01 22:29:13 rillig Exp $ +# $NetBSD: pkglint.pl,v 1.226 2005/08/01 23:54:09 rillig Exp $ # # This version contains lots of changes necessary for NetBSD packages # done by: @@ -190,11 +190,8 @@ package PkgLint::FileUtil::Line; #========================================================================== sub new($$$$) { my ($class, $file, $lineno, $text) = @_; - my ($self) = ([]); + my ($self) = ([$file, $lineno, $text]); bless($self, $class); - $self->[0] = $file; - $self->[1] = $lineno; - $self->[2] = $text; return $self; } sub file($) { @@ -517,14 +514,16 @@ sub load_predefined_sites($) { return false; } foreach my $line (@{$lines}) { - if ($line->text =~ qr"^(MASTER_SITE_\w+)\+=\s*\\$"o) { + my $text = $line->text; + + if ($text =~ qr"^(MASTER_SITE_\w+)\+=\s*\\$"o) { $varname = $1; $ignoring = false; - } elsif ($line->text eq "MASTER_SITE_BACKUP?=\t\\") { + } elsif ($text eq "MASTER_SITE_BACKUP?=\t\\") { $ignoring = true; - } elsif ($line->text =~ qr"^\t($regex_url_directory)(?:|\s*\\)$"o) { + } elsif ($text =~ qr"^\t($regex_url_directory)(?:|\s*\\)$"o) { if (!$ignoring) { if (defined($varname)) { $predefined_sites->{$1} = $varname; @@ -533,10 +532,10 @@ sub load_predefined_sites($) { } } - } elsif ($line->text =~ qr"^(?:#.*|\s*)$") { + } elsif ($text =~ qr"^(?:#.*|\s*)$") { # ignore empty and comment lines - } elsif ($line->text =~ qr"BSD_SITES_MK") { + } elsif ($text =~ qr"BSD_SITES_MK") { # ignore multiple inclusion guards } else { |