keep raw changelogs to avoid changing the format (backport)

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'
     );