diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2003-08-23 18:01:16 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2003-08-23 18:01:16 +0000 |
| commit | 2cb1076975ecf6c03917ed33addf27b0c5f344d3 (patch) | |
| tree | 293572d763658e1dc6f03356ee5d7bfbc4c48806 /perl-install | |
| parent | 4beca377141304b18706e5554234ddc002c4d7c4 (diff) | |
| download | drakx-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.pm | 4 |
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 { |