diff options
| author | Florian Pritz <bluewind@xinu.at> | 2018-12-17 00:38:24 +0100 |
|---|---|---|
| committer | Florian Pritz <bluewind@xinu.at> | 2018-12-17 00:38:24 +0100 |
| commit | 90535df46d0d8b4052497a9dc0beacd8c186066f (patch) | |
| tree | 147063c319cc1469d15af6f5e8c1355997ca0d7f /script | |
| parent | d7cd126cc8326f42713c20d2d95091156b44e58f (diff) | |
| download | App-ArchLinux-PackagerTools-90535df46d0d8b4052497a9dc0beacd8c186066f.tar.gz App-ArchLinux-PackagerTools-90535df46d0d8b4052497a9dc0beacd8c186066f.tar.xz | |
Use context variable to track singletons
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'script')
| -rwxr-xr-x | script/perlpkg.pl | 3 |
1 files changed, 2 insertions, 1 deletions
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(); |