From 2cb1076975ecf6c03917ed33addf27b0c5f344d3 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Sat, 23 Aug 2003 18:01:16 +0000 Subject: if_($A, $B) got extremely slow, replaced by ( $A ? $B : () ). --- perl-install/handle_configs.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/handle_configs.pm') 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 { -- cgit v1.2.1