summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2003-08-23 18:01:16 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2003-08-23 18:01:16 +0000
commit2cb1076975ecf6c03917ed33addf27b0c5f344d3 (patch)
tree293572d763658e1dc6f03356ee5d7bfbc4c48806 /perl-install
parent4beca377141304b18706e5554234ddc002c4d7c4 (diff)
downloaddrakx-2cb1076975ecf6c03917ed33addf27b0c5f344d3.tar
drakx-2cb1076975ecf6c03917ed33addf27b0c5f344d3.tar.gz
drakx-2cb1076975ecf6c03917ed33addf27b0c5f344d3.tar.bz2
drakx-2cb1076975ecf6c03917ed33addf27b0c5f344d3.tar.xz
drakx-2cb1076975ecf6c03917ed33addf27b0c5f344d3.zip
if_($A, $B) got extremely slow, replaced by ( $A ? $B : () ).
Diffstat (limited to 'perl-install')
-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 {