#!/usr/bin/perl

use strict;

print "\n\nThis is IO::Compress::Zlib autorepair version 1.2\n";

my @modules_list = split( /\n/, `/scripts/perlmods -l 2>/dev/null` );

my $broken = 0;

foreach my $module (@modules_list) {
    my ( $modname, $version, $nd ) = split( /=/, $module, 3 );
    if ( $modname eq 'IO::Compress::Zlib' && $version eq '2.006' ) {
        $broken = 1;
        last;
    }
}

if ( !$broken ) {
    print "IO::Compress::Zlib is ok\n\n";
    exit();
}

print "Repairing IO::Compress::Zlib\n\n";
unlink('/home/.cpcpan/modules.versions');
system( '/scripts/perlmods',      '-u',      'IO::Compress::Zlib' );
system( '/scripts/perlinstaller', '--force', 'IO::Compress::Gzip' );

print "Done Repair\n\n";