Fix bug #10879, introduced by a perl_checker cleanup.

1 files changed, 1 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index 44c2e404..60957d22 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -1348,7 +1348,7 @@ sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
             goto return_with_error;
         }
         my $progress_nb;
-        my $total_nb = find { m|^/| } @rpms_install, @rpms_upgrade;
+        my $total_nb = scalar grep { m|^/| } @rpms_install, @rpms_upgrade;
         my $something_installed;
         my $callback_inst = sub {
             my ($urpm, $type, $id, $subtype, $amount, $total) = @_;