From 135686539f7d0e8c51555e37a334b9556fd55a19 Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Mon, 17 Dec 2018 00:42:13 +0100 Subject: Initialize context in top level package Signed-off-by: Florian Pritz --- lib/App/ArchLinux/PackagerTools.pm | 1 + script/perlpkg.pl | 3 +-- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/App/ArchLinux/PackagerTools.pm b/lib/App/ArchLinux/PackagerTools.pm index 0bd602a..0fbd224 100644 --- a/lib/App/ArchLinux/PackagerTools.pm +++ b/lib/App/ArchLinux/PackagerTools.pm @@ -38,6 +38,7 @@ Returns a new instance. =cut method new($class: $deps = {}) { + $deps->{context} //= {}; $deps->{config} //= App::ArchLinux::PackagerTools::Config->new({$deps->%{context}}); $deps->{cpan} //= App::ArchLinux::PackagerTools::CPAN->new({$deps->%{context}}); $deps->{pacman} //= App::ArchLinux::PackagerTools::Pacman->new({$deps->%{context}}); diff --git a/script/perlpkg.pl b/script/perlpkg.pl index f66b9d6..e6cac27 100755 --- a/script/perlpkg.pl +++ b/script/perlpkg.pl @@ -48,8 +48,7 @@ if ($ARGV[0] // "" eq "--debug") { } Log::Any::Adapter->set('Log4perl'); -my $context = {}; -my $app = App::ArchLinux::PackagerTools->new({context => $context}); +my $app = App::ArchLinux::PackagerTools->new(); use Data::Dumper; my $dists = $app->get_distributions_in_repo(); -- cgit v1.2.3-24-g4f1b