summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/handle_configs.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/handle_configs.pm b/perl-install/handle_configs.pm
index 130a45088..669c434b0 100644
--- a/perl-install/handle_configs.pm
+++ b/perl-install/handle_configs.pm
@@ -24,7 +24,9 @@ sub read_directives {
my ($lines_ptr, $directive) = @_;
my $searchdirective = searchstr($directive);
- map { if_(/^\s*$searchdirective\s+(\S.*)$/, chomp_($1)) } @$lines_ptr;
+ # do not use if_() below because it slow down printerdrake
+ # to the point one can believe in process freeze:
+ map { (/^\s*$searchdirective\s+(\S.*)$/ ? chomp_($1) : ()) } @$lines_ptr;
}
sub read_unique_directive {