Make context parameter explicit

This prevents a loop in $deps->{..}->{context} which is 1) unnecessary
and 2) potentially breaks memory recovery when things get deleted. Not
the case right now, but whatever.

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

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/App/ArchLinux/PackagerTools/Pacman.pm b/lib/App/ArchLinux/PackagerTools/Pacman.pm
index f541721..3204ca1 100644
--- a/lib/App/ArchLinux/PackagerTools/Pacman.pm
+++ b/lib/App/ArchLinux/PackagerTools/Pacman.pm
@@ -35,17 +35,17 @@ Returns a new instance.
 =cut
 
 
-method new($class: $deps = {}) {
-	$deps->{cpan} //= App::ArchLinux::PackagerTools::CPAN->new({$deps->%{context}});
+method new($class: $context, $deps = {}) {
+	$deps->{cpan} //= App::ArchLinux::PackagerTools::CPAN->new($context);
 	$deps->{pkgname_cpan_name_map} //= {
 		# pkgname => cpan_name
 		'perl-critic' => 'Perl::Critic',
 		'perl-libintl-perl' => 'libintl-perl',
 	};
-	return $class->new_no_defaults($deps);
+	return $class->new_no_defaults($context, $deps);
 }
 
-method new_no_defaults($class: $deps = {}) {
+method new_no_defaults($class: $context, $deps = {}) {
 	my $self = {};
 	bless $self, $class;
 	$deps->{cpan_name_pkgname_map} = {reverse $deps->{pkgname_cpan_name_map}->%*};