keep raw changelogs to avoid changing the format (backport)

3 files changed, 5 insertions, 18 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],
     ];
 }