summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorFlorian Pritz <bluewind@xinu.at>2018-11-19 10:33:19 +0100
committerFlorian Pritz <bluewind@xinu.at>2018-11-19 10:33:19 +0100
commitfea10eefe36c3f759aa2e5a7b5b61a58df1c3b4a (patch)
tree317067d8c41848619a1f905c384b6af21efeaaee /lib
parent0755133217cd373f6b59bb10eb3a2ec7c0fe7a66 (diff)
downloadApp-ArchLinux-PackagerTools-fea10eefe36c3f759aa2e5a7b5b61a58df1c3b4a.tar.gz
App-ArchLinux-PackagerTools-fea10eefe36c3f759aa2e5a7b5b61a58df1c3b4a.tar.xz
Use zcat instead of IO::Zlib
Apparently IO::Zlib is quite slow compared to zcat and other modules aren't supposed to be much faster. Also this gives us free multithreading. Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'lib')
-rw-r--r--lib/App/ArchLinux/PackagerTools/CPAN.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/App/ArchLinux/PackagerTools/CPAN.pm b/lib/App/ArchLinux/PackagerTools/CPAN.pm
index 0bf201f..4faf0d6 100644
--- a/lib/App/ArchLinux/PackagerTools/CPAN.pm
+++ b/lib/App/ArchLinux/PackagerTools/CPAN.pm
@@ -6,7 +6,6 @@ use CPAN::DistnameInfo;
use CPANPLUS::Backend;
use Carp;
use Function::Parameters;
-use IO::Zlib;
use Log::Any qw($log);
use Syntax::Keyword::Try;
use version;
@@ -140,7 +139,7 @@ method _build_dist_index() {
$log->debug("Building index...");
my $packages_file = "$ENV{HOME}/.cpanplus/02packages.details.txt.gz";
- my $fh = IO::Zlib->new($packages_file, 'r');
+ open my $fh, '-|', 'zcat', $packages_file;
my %seen;
my $line_number = 0;
while (<$fh>) {