make it slighly faster: do not perform useless I/O

2 files changed, 2 insertions, 2 deletions

diff --git a/NEWS b/NEWS
index 1f5b74c6..abde17f3 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,7 @@
 - --merge-all-rpmnew mode:
   o consider all config files, not only those in /etc
   o ignore /etc/{passwd,group,(g)shadow,hosts,resolv.conf} (too dangerous)
+  o make it slighly faster: do not perform useless I/O
 
 Version 5.47 - 21 Apr 2013, Thierry Vignaud
 
diff --git a/Rpmdrake/rpmnew.pm b/Rpmdrake/rpmnew.pm
index 9bf40891..70880a10 100644
--- a/Rpmdrake/rpmnew.pm
+++ b/Rpmdrake/rpmnew.pm
@@ -155,7 +155,6 @@ sub inspect {
 
 sub dialog_rpmnew {
     my ($msg, %p2r) = @_;
-    @{$p2r{$_}} = grep { !$ignores_rpmnew{$_} } @{$p2r{$_}} foreach keys %p2r;
     my $sum_rpmnew = sum(map { int @{$p2r{$_}} } keys %p2r);
     $sum_rpmnew == 0 and return 1;
     interactive_packtable(
@@ -197,7 +196,7 @@ sub do_merge_if_needed() {
         # costly:
         open_rpm_db()->traverse(sub {
                           my $n = my_fullname($_[0]);
-                          $pkg2rpmnew{$n} = [ grep { (-r "$_.rpmnew" || -r "$_.rpmsave") } map { chomp_($_) } $_[0]->conf_files ];
+                          $pkg2rpmnew{$n} = [ grep { !$ignores_rpmnew{$_} && (-r "$_.rpmnew" || -r "$_.rpmsave") } map { chomp_($_) } $_[0]->conf_files ];
                       });
         print "done.\n";
         undef $wait;