rpmdrake валится в опр. момент..

[Dimon_]

Mandrake-10.1
kernel-2.6.8.1mdk
rpmdrake-2.1.5-13 (с коробки)
rpm-devel-4.2.2-15

Топик как бы спотыкается на некоторых пакетах и валится:

Код: Выделить всё

#rpmdrake..
...
добавляется пакет VariCAD-en-9.0.2.3a-1_mdk100.i586 (id=3869, eid=3869, update=1, file=/home/stuff/Mandrake/bin/10.1/media/com2/VariCAD-en-9.0.2.3a-1_mdk100.i586.rpm)
Illegal division by zero at /usr/sbin/rpmdrake line 1394.

Как будто что-то блокирует установку..
Сей пакет - пример. Замечно и с другими некоторыми пакетами..

/usr/sbin/rpmdrake>>>>>>>
line 1394:

Код: Выделить всё

gurpm::progress($amount/$total);

Текст с 1300 строки по 1400 этого файла:

Код: Выделить всё

    gurpm::invalidate_cancel_forever();

    my %sources_install = %{$urpm->extract_packages_to_install(\%sources) || {}};
    my @rpms_install = grep { !/\.src\.rpm$/ } values %sources_install;
    my @rpms_upgrade = grep { !/\.src\.rpm$/ } values %sources;

    if (!$options{'no-verify-rpm'}) {
        gurpm::label(N("Verifying packages signatures..."));
        my $total = @rpms_install + @rpms_upgrade;
        my $progress;
    my @invalid_sources = to_utf8($urpm->check_sources_signatures(\%sources_install, \%sources, translate => 1, basename => 1,
                                                                      callback => sub {
                                                                          gurpm::progress(++$progress/$total);
                                                                      }));
        if (@invalid_sources) {
            interactive_msg_(N("Rpmdrake"),
                             N("The following packages have bad signatures:\n\n%s\n\nDo you want to continue installation?",
                               join "\n", sort @invalid_sources), yesno => 1, if_(@invalid_sources > 10, scroll => 1)) or goto return_with_error;
        }
    }

    if (@rpms_install || @rpms_upgrade) {
        if (my @missing = grep { m|^/| && ! -e $_ } @rpms_install, @rpms_upgrade) {
            interactive_msg_(N("Installation failed"),
                             N("Installation failed, some files are missing:\n%s\n\nYou may want to update your media database.",
                               join "\n", map { "    $_" } @missing) .
                             (@error_msgs ? N("\n\nError(s) reported:\n%s", join("\n", @error_msgs)) : ''));
            goto return_with_error;
        }
        my $progress_nb;
        my $total_nb = scalar grep { m|^/| } @rpms_install, @rpms_upgrade;
        my $something_installed;
        my $callback_inst = sub {
            my ($urpm, $type, $id, $subtype, $amount, $total) = @_;
            my $pkg = defined $id && $urpm->{depslist}[$id];

            if ($subtype eq 'start') {
                if ($type eq 'trans') {
                    gurpm::label(N("Preparing packages installation..."));
                } else {
                    $something_installed = 1;
                    gurpm::label(N("Installing package `%s' (%s/%s)...", $pkg->name, ++$progress_nb, $total_nb));
                }
            } elsif ($subtype eq 'progress') {
                gurpm::progress($amount/$total);
            }
        };
    my $fh;
        my @errors = $urpm->install(
     $urpm->{ask_remove},
     \%sources_install,

Кто знает место, где сей сабж обсуждался людьми?
Наверняка не я первый сталкиваюсь с этим..

Большая просьба помочь..