summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xinu.at>2018-12-10 23:44:12 +0100
committerFlorian Pritz <bluewind@xinu.at>2018-12-10 23:44:12 +0100
commit7700ca5959411847a9f85165f3802bdb46636e6c (patch)
tree0025fa42968d6df19359ddafcc47f7e9a3828d0f
parent407f5566ea831c07d070c98cf83af207288d28c0 (diff)
downloadApp-ArchLinux-PackagerTools-7700ca5959411847a9f85165f3802bdb46636e6c.tar.gz
App-ArchLinux-PackagerTools-7700ca5959411847a9f85165f3802bdb46636e6c.tar.xz
Add logging in get_updateable_packages()
Signed-off-by: Florian Pritz <bluewind@xinu.at>
-rw-r--r--lib/App/ArchLinux/PackagerTools.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/App/ArchLinux/PackagerTools.pm b/lib/App/ArchLinux/PackagerTools.pm
index 409cbf7..b92e20c 100644
--- a/lib/App/ArchLinux/PackagerTools.pm
+++ b/lib/App/ArchLinux/PackagerTools.pm
@@ -86,12 +86,13 @@ method get_updateable_packages($distribution_names) {
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});
+ my $pkgname = $self->{deps}->{pacman}->get_perl_pkgname($dist_name);
+ $log->infof('New version available for dist \'%s\' in package \'%s\': %s -> %s', $dist_name, $pkgname, $repo_version, $dist->{version});
push @packages, {
dist_name => $dist_name,
repo_version => $repo_version,
cpan_version => $dist->{version},
- pkgname => $self->{deps}->{pacman}->get_perl_pkgname($dist_name),
+ pkgname => $pkgname,
};
} else {
$log->debugf('Dist \'%s\' is already up to date with version %s', $dist_name, $dist->{version});