diff options
| author | Florian Pritz <bluewind@xinu.at> | 2018-12-10 23:44:12 +0100 |
|---|---|---|
| committer | Florian Pritz <bluewind@xinu.at> | 2018-12-10 23:44:12 +0100 |
| commit | 7700ca5959411847a9f85165f3802bdb46636e6c (patch) | |
| tree | 0025fa42968d6df19359ddafcc47f7e9a3828d0f /lib/App | |
| parent | 407f5566ea831c07d070c98cf83af207288d28c0 (diff) | |
| download | App-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>
Diffstat (limited to 'lib/App')
| -rw-r--r-- | lib/App/ArchLinux/PackagerTools.pm | 5 |
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}); |