From 6757fc3c4d1594c60b067834a2fbe0a4df31e967 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 23 Jun 2007 13:54:13 +0000
Subject: keep raw changelogs to avoid changing the format (backport)

---
 lib/Youri/Package.pm      |  3 +--
 lib/Youri/Package/RPM4.pm | 10 ++--------
 lib/Youri/Package/URPM.pm | 10 ++--------
 3 files changed, 5 insertions(+), 18 deletions(-)

(limited to 'lib/Youri')

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],
     ];
 }
 
-- 
cgit v1.2.1