From df8f04661d46f03f7c2dd4041c520c479179ed8a Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Mon, 19 Nov 2018 00:57:11 +0100 Subject: Batch calls to expac for performance Signed-off-by: Florian Pritz --- lib/App/ArchLinux/PackagerTools.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lib/App/ArchLinux/PackagerTools.pm') diff --git a/lib/App/ArchLinux/PackagerTools.pm b/lib/App/ArchLinux/PackagerTools.pm index 0a45bb8..cfc2f01 100644 --- a/lib/App/ArchLinux/PackagerTools.pm +++ b/lib/App/ArchLinux/PackagerTools.pm @@ -80,8 +80,10 @@ older) and the CPAN distribution. method get_updateable_packages($distribution_names) { my @packages; + my $repo_versions = $self->{deps}->{pacman}->get_perl_distribution_versions($distribution_names); for my $dist_name ($distribution_names->@*) { - my $repo_version = $self->{deps}->{pacman}->get_perl_distribution_version($dist_name); + #my $repo_version = $self->{deps}->{pacman}->get_perl_distribution_version($dist_name); + my $repo_version = $repo_versions->{$dist_name}; my $dist = $self->{deps}->{cpan}->get_dist($dist_name); if ($self->{deps}->{cpan}->is_newer_version_available($dist_name, $repo_version)) { $log->infof('New version available for dist \'%s\': %s', $dist_name, $dist->{version}); -- cgit v1.2.3-24-g4f1b