Add logging in get_updateable_packages()

Signed-off-by: Florian Pritz <bluewind@xinu.at>

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});