diff options
| -rw-r--r-- | lib/Youri/Package.pm | 3 | ||||
| -rw-r--r-- | lib/Youri/Package/RPM4.pm | 10 | ||||
| -rw-r--r-- | lib/Youri/Package/URPM.pm | 10 | ||||
| -rwxr-xr-x | t/package.t | 32 |
4 files changed, 14 insertions, 41 deletions
diff --git a/lib/Youri/Package.pm b/lib/Youri/Package.pm index c8a6bca..6b352c0 100644 --- a/lib/Youri/Package.pm +++ b/lib/Youri/Package.pm @@ -248,8 +248,7 @@ Time of the change (index CHANGE_TIME). =item B<text> -Textual description of the change, as as array reference of individual changes -(index CHANGE_TEXT). +Raw textual description of the change (index CHANGE_TEXT). =back diff --git a/lib/Youri/Package/RPM4.pm b/lib/Youri/Package/RPM4.pm index 306c32f..b1ed5d8 100644 --- a/lib/Youri/Package/RPM4.pm +++ b/lib/Youri/Package/RPM4.pm @@ -339,10 +339,7 @@ sub get_changes { $changes[$i] = [ $names[$i], $time[$i], - [ - map { s/^.\s+//; $_ } - split(/\n/, $text[$i]) - ] + $text[$i], ]; } @@ -355,10 +352,7 @@ sub get_last_change { return [ ($self->{_header}->tag('changelogname'))[0], ($self->{_header}->tag('changelogtime'))[0], - [ - map { s/^.\s+//; $_ } - split(/\n/, ($self->{_header}->tag('changelogtext'))[0]) - ] + ($self->{_header}->tag('changelogtext'))[0], ]; } diff --git a/lib/Youri/Package/URPM.pm b/lib/Youri/Package/URPM.pm index 5e314f9..d2b2360 100644 --- a/lib/Youri/Package/URPM.pm +++ b/lib/Youri/Package/URPM.pm @@ -307,10 +307,7 @@ sub get_changes { $changes[$i] = [ $names[$i], $time[$i], - [ - map { s/^.\s+//; $_ } - split(/\n/, $text[$i]) - ] + $text[$i], ]; } @@ -323,10 +320,7 @@ sub get_last_change { return [ ($self->{_header}->changelog_name())[0], ($self->{_header}->changelog_time())[0], - [ - map { s/^.\s+//; $_ } - split(/\n/, ($self->{_header}->changelog_text())[0]) - ] + ($self->{_header}->changelog_text())[0], ]; } diff --git a/t/package.t b/t/package.t index 25e7798..f47e828 100755 --- a/t/package.t +++ b/t/package.t @@ -428,45 +428,33 @@ foreach my $class (@classes) { [ 'Guillaume Rousse <guillomovitch@mandriva.org> 3.03-11mdv2007.0', 1149847200, - [ - '%mkrel', - 'rpmbuildupdate aware' - ] + '- %mkrel' . "\n" . + '- rpmbuildupdate aware', ], [ 'Guillaume Rousse <guillomovitch@mandriva.org> 3.03-10mdk ', 1117879200, - [ - 'fix man page (fix #16291)' - ] + '- fix man page (fix #16291)', ], [ 'Guillaume Rousse <guillomovitch@mandrake.org> 3.03-9mdk ', 1090058400, - [ - 'hurry businesman compliant (aka two new wonderful cows)' - ] + '- hurry businesman compliant (aka two new wonderful cows)', ], [ 'Guillaume Rousse <guillomovitch@mandrake.org> 3.03-8mdk ', 1089540000, - [ - 'apologies to the girafes (with one only f)' - ] + '- apologies to the girafes (with one only f)', ], [ 'Guillaume Rousse <guillomovitch@mandrake.org> 3.03-7mdk ', 1086429600, - [ - '#mandrakefr compliant (aka four new additional cows)' - ] + '- #mandrakefr compliant (aka four new additional cows)', ], [ 'Guillaume Rousse <guillomovitch@linux-mandrake.com> 3.03-6mdk', 1061460000, - [ - 'save.the.world patch' - ] + '- save.the.world patch', ] ], 'changelog' @@ -476,10 +464,8 @@ foreach my $class (@classes) { [ 'Guillaume Rousse <guillomovitch@mandriva.org> 3.03-11mdv2007.0', 1149847200, - [ - '%mkrel', - 'rpmbuildupdate aware' - ] + '- %mkrel' . "\n" . + '- rpmbuildupdate aware', ], 'last change' ); |