From 90535df46d0d8b4052497a9dc0beacd8c186066f Mon Sep 17 00:00:00 2001 From: Florian Pritz Date: Mon, 17 Dec 2018 00:38:24 +0100 Subject: Use context variable to track singletons Signed-off-by: Florian Pritz --- script/perlpkg.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'script/perlpkg.pl') diff --git a/script/perlpkg.pl b/script/perlpkg.pl index e6cac27..f66b9d6 100755 --- a/script/perlpkg.pl +++ b/script/perlpkg.pl @@ -48,7 +48,8 @@ if ($ARGV[0] // "" eq "--debug") { } Log::Any::Adapter->set('Log4perl'); -my $app = App::ArchLinux::PackagerTools->new(); +my $context = {}; +my $app = App::ArchLinux::PackagerTools->new({context => $context}); use Data::Dumper; my $dists = $app->get_distributions_in_repo(); -- cgit v1.2.3-24-g4f1b