summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-08-21 09:46:40 +0000
committerFrancois Pons <fpons@mandriva.com>2003-08-21 09:46:40 +0000
commit26a4878d6c5b03be939dfe06177a83f83f4ff83e (patch)
tree17cfa070d3e0926f348e21381c442c18e0e6efd1 /perl-install/pkgs.pm
parent2645892cec8b60eb32d23d22e71679ece63ea6ef (diff)
downloaddrakx-26a4878d6c5b03be939dfe06177a83f83f4ff83e.tar
drakx-26a4878d6c5b03be939dfe06177a83f83f4ff83e.tar.gz
drakx-26a4878d6c5b03be939dfe06177a83f83f4ff83e.tar.bz2
drakx-26a4878d6c5b03be939dfe06177a83f83f4ff83e.tar.xz
drakx-26a4878d6c5b03be939dfe06177a83f83f4ff83e.zip
really fixed bad content generated.
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 4faeb8131..c99bae118 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -422,13 +422,13 @@ sub psUsingHdlist {
$block .= $_;
if ($inside_block =~ /E/) {
push @{$m->{pubkey}}, { block => $block, content => $content };
- $block = $content = '';
- next;
+ $block = $content = undef;
+ } else {
+ #- now compute content (for finding the right key).
+ chomp;
+ /^$/ and $content = '';
+ defined $content and $content .= $_;
}
- #- now compute content (for finding the right key).
- chomp;
- my $inside_content = /^$/ ... /^-----END PGP PUBLIC KEY BLOCK-----$/;
- $inside_content > 1 and $content .= $_;
}
}