diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-02-08 15:58:37 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-02-08 15:58:37 +0000 |
| commit | 6061f17e5324cd123bb7f49d5d262bb02cfa72f0 (patch) | |
| tree | a34b60227cc03ce9d747115f370af3abc765b018 /Rpmdrake/pkg.pm | |
| parent | 9e56a3feea25bb79c9dddeefca089d2af7df28e1 (diff) | |
| download | rpmdrake-6061f17e5324cd123bb7f49d5d262bb02cfa72f0.tar rpmdrake-6061f17e5324cd123bb7f49d5d262bb02cfa72f0.tar.gz rpmdrake-6061f17e5324cd123bb7f49d5d262bb02cfa72f0.tar.bz2 rpmdrake-6061f17e5324cd123bb7f49d5d262bb02cfa72f0.tar.xz rpmdrake-6061f17e5324cd123bb7f49d5d262bb02cfa72f0.zip | |
(format_changelog_string) make a real function out of a closure
Diffstat (limited to 'Rpmdrake/pkg.pm')
| -rw-r--r-- | Rpmdrake/pkg.pm | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 1eb84b27..27c8d56b 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -48,7 +48,7 @@ use urpm::args qw(); use Exporter; our @ISA = qw(Exporter); -our @EXPORT = qw(extract_header find_installed_version formatlistpkg get_pkgs parse_compssUsers_flat perform_installation perform_removal run_rpm $spacing); +our @EXPORT = qw(extract_header find_installed_version formatlistpkg get_pkgs parse_compssUsers_flat perform_installation perform_removal run_rpm); use mygtk2 qw(gtknew); use ugtk2 qw(:all); @@ -90,13 +90,8 @@ sub run_rpm { } -our $spacing = " "; sub extract_header { my ($pkg, $urpm, $xml_info) = @_; - my $chg_prepro = sub { - #- preprocess changelog for faster TextView insert reaction - [ map { [ "$spacing$_\n", if_(/^\*/, { 'weight' => Gtk2::Pango->PANGO_WEIGHT_BOLD }) ] } split("\n", $_[0]) ]; - }; my %fields = ( info => 'description', files => 'files', @@ -113,7 +108,7 @@ sub extract_header { if ($p->flag_installed && !$p->flag_upgrade) { my @files = map { chomp_(to_utf8($_)) } run_rpm("rpm -ql rpm"); add2hash($pkg, { files => [ @files ? @files : N("(none)") ], - changelog => $chg_prepro->(to_utf8(scalar(run_rpm("rpm -q --changelog $name")))) }); + changelog => format_changelog_string(to_utf8(scalar(run_rpm("rpm -q --changelog $name")))) }); } else { my $medium = pkg2medium($p, $urpm); my ($local_source, %xml_info_pkgs, $bar_id); @@ -158,7 +153,7 @@ sub extract_header { }; add2hash($pkg, { description => rpm_description($p->description), files => scalar($p->files) ? [ $p->files ] : [ N("(none)") ], - changelog => $chg_prepro->(join("\n", map { + changelog => format_changelog_string(join("\n", map { "* " . localtime2changelog($_->{time}) . " $_->{name}\n\n$_->{text}\n" } $p->changelogs)) }); $p->pack_header; # needed in order to call methods on objects outside ->traverse } elsif ($xml_info_pkgs{$name}) { @@ -169,7 +164,7 @@ sub extract_header { add2hash($pkg, { files => [ @files ? @files : N("(none)") ] }); } elsif ($xml_info eq 'changelog') { add2hash($pkg, { - changelog => $chg_prepro->(join("\n", map { + changelog => format_changelog_string(join("\n", map { "* " . localtime2changelog($_->{time}) . " $_->{name}\n\n$_->{text}\n"; } @{$xml_info_pkgs{$name}{changelogs}})) }); |