From 7700ca5959411847a9f85165f3802bdb46636e6c Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Mon, 10 Dec 2018 23:44:12 +0100 Subject: Add logging in get_updateable_packages() Signed-off-by: Florian Pritz --- lib/App/ArchLinux/PackagerTools.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib') 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}); -- cgit v1.2.3-24-g4f1b