diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-08 07:41:51 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-08 07:41:51 +0000 |
| commit | cc53d7a77f5e1630fe6c0c3661829f2df3a8da1d (patch) | |
| tree | fe9ea5d8494fb7e9579995b87007359a1b1bb0a2 /perl-install/pkgs.pm | |
| parent | 89cd9fb99236d52ea276c4bfa111cafca433c48a (diff) | |
| download | drakx-backup-do-not-use-cc53d7a77f5e1630fe6c0c3661829f2df3a8da1d.tar drakx-backup-do-not-use-cc53d7a77f5e1630fe6c0c3661829f2df3a8da1d.tar.gz drakx-backup-do-not-use-cc53d7a77f5e1630fe6c0c3661829f2df3a8da1d.tar.bz2 drakx-backup-do-not-use-cc53d7a77f5e1630fe6c0c3661829f2df3a8da1d.tar.xz drakx-backup-do-not-use-cc53d7a77f5e1630fe6c0c3661829f2df3a8da1d.zip | |
Add a count of skipped packages after having read an hdlist
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index edf7fbcb3..ff7b3aaf2 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -491,11 +491,13 @@ sub psUsingHdlist { if ($m->{ignored}) { log::l("ignoring packages in $hdlist"); } else { + my $nb_suppl_pkg_skipped = 0; my $callback = sub { my (undef, $p) = @_; our %uniq_pkg_seen; if ($uniq_pkg_seen{$p->fullname}++) { log::l("skipping " . scalar $p->fullname); + ++$nb_suppl_pkg_skipped; return 0; } else { return 1; @@ -515,7 +517,7 @@ sub psUsingHdlist { unlink $newf; $o_fhdlist or unlink $newsf; die "fatal: nothing read in hdlist or synthesis for $fakemedium" }; - log::l("read " . ($m->{end} - $m->{start} + 1) . " packages in $hdlist"); + log::l("read " . ($m->{end} - $m->{start} + 1) . " packages in $hdlist, $nb_suppl_pkg_skipped skipped"); } $m; } |