Bug#435656: Change in behaviour of gzreadline() caused debmirror to delete my whole mirror

[Peter Baumann]

Package: libcompress-zlib-perl
Version: 2.005-1
Severity: serious

--- Please enter the report below this line. ---

After the upgrade to version 2.005-1 debmirror decided to delete my
whole debian mirror. And as i didn't pay attention during debmirror
updates this is really annoying.

The corresponding debmirror code is here:

 851     my $gunzf = gzopen($file, "rb") or die "$file: $!";
 852     my $line;
 853     my $res;
 854     my $loop = 1;
 855     while ($loop) {
 856       my $buf = "";
 857       while(($res = $gunzf->gzreadline($line) > 0)
 858             && !($line =~ /^$/)) {
 859         $buf = $buf . $line;
 860       }
 861       if ($res <= 0) { # <--------  THIS IS ALWAYS TRUE AFTER THE UPGRADE
 862         $loop = 0;
 863         next;
 864       }

I debuged it with print statements and found out the the above marked if
statement is alwasy true after the upgrade and thats why the code further down
the while statement is never reached.

I'm not sure if this is actually a problem in debmirror or in libcompress-zlib-perl,
but as it worked before the upgrade it seems naturally to report the bug here.

Downgrading the packet fixed my problem. But now to downloading the mirror :-(

-Peter

--- System information. ---
Architecture: i386
Kernel:       Linux 2.6.18-4-k7

Debian Release: lenny/sid
  990 unstable        www.debian-multimedia.org 
  990 unstable        ftp.debian.org 
  990 unstable        ftp.de.debian.org 
  500 stable          ftp.de.debian.org 

--- Package information. ---
Depends                (Version) | Installed
================================-+-===============
perl              (>= 5.8.8-6.1) | 5.8.8-7
perlapi-5.8.8                    | 
libc6               (>= 2.3.6-6) | 2.6-5
zlib1g              (>= 1:1.2.1) | 1:1.2.3.3.dfsg-5