Re: PerlIO::via::xz

Good idea. I learned about xz several weeks ago at work.

I tried to fork your repo on GitHub and ran prove -vl. There were no test failures. Even running

perl -Ilib sandbox/xz-undef.pl
[download]

doesn't show any problems.

What do you mean by "it fails"?

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re: PerlIO::via::xz Select or Download Code

Replies are listed 'Best First'.
Re^2: PerlIO::via::xz by Tux (Canon) on Oct 04, 2020 at 07:35 UTC
Change `$/ = "\xff\xfe\xff\xfe" x 16` to `undef` in `t/10-xz.t`. (trice). `sandbox/xz-undef.pl` shows it is not the underlying IO modules to blame. `$ perl -Mblib -MPerlIO::via::xz -wE'open my $fh, "<:via(xz)", "files/p +lain.xz";print scalar<$fh>' Lorem ipsum dolor sit amet, consectetur adipiscing elit, $ perl -Mblib -MPerlIO::via::xz -wE'open my $fh, "<:via(xz)", "files/p +lain.xz";$/=undef;print scalar<$fh>'` [download] or replace `t/10-xz.t` with this: Read more... (3 kB) Enjoy, Have FUN! H.Merijn	[reply] [d/l] [select]
Re^3: PerlIO::via::xz by choroba (Cardinal) on Oct 04, 2020 at 08:45 UTC
I tried to debug it, the reading happens at IO::Uncompress::Base line 73. $$out is not populated. I'm at my wits' end. `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l]