Bug#1039907: apt-cacher-cleanup.pl clears/removes all cached packages on trixie

[Mark Hindley]

Control: tags -1 = confirmed

[cc perl maintainer]

Chris,

Thanks.

I have managed to reproduce this.

It appears to be a regression in the IO::Uncompress::AnyUncompress module which
doesn't seem to handle xz any more. At the moment I am unsure why. My minimal
script to reproduce is attached. My testing shows that text and gzipped files
work as expected, but not xz.

Nico,

Are you aware of this issue? I can't find any other reports. Am I missing
something?

Thanks to you both

Mark

#! /usr/bin/perl

use warnings;
use strict;

use IO::Uncompress::AnyUncompress;

die "No file specified\n" unless @ARGV;
my $raw = IO::Uncompress::AnyUncompress->new($ARGV[0]) or die $!;

while (<$raw>) {
    print substr($_, 0, 20), "\n";
    exit();
}