r9264 - /scripts/qa/DebianQA/Svn.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Nov 13 12:49:16 2007
New Revision: 9264

URL: http://svn.debian.org/wsvn/?sc=1&rev=9264
Log:
Revert export of svn_get_file; cache last changelog text too

Modified:
    scripts/qa/DebianQA/Svn.pm

Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=9264&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Tue Nov 13 12:49:16 2007
@@ -18,7 +18,6 @@
 our @EXPORT = (qw(
     svn_download svn_get svn_get_consolidated
     svndir2pkgname pkgname2svndir get_pkglist get_pkglist_hashref
-    get_svn_file
     ));
 
 use IO::Scalar;
@@ -139,11 +138,19 @@
             $svn{$dir}{version} = $lastchl->Version;
             $svn{$dir}{date}    = $lastchl->Date;
             $svn{$dir}{changer} = $lastchl->Maintainer;
+            $svn{$dir}{text}    = join(
+                "\n",
+                map( $lastchl->$_, qw(Header Changes Trailer) ),
+            );
         }
         if($unfinishedchl) {
             $svn{$dir}{un_version} = $unfinishedchl->Version;
             $svn{$dir}{un_date}    = $unfinishedchl->Date;
             $svn{$dir}{un_changer} = $unfinishedchl->Maintainer;
+            $svn{$dir}{un_text}    = join(
+                "\n",
+                map( $unfinishedchl->$_, qw(Header Changes Trailer) ),
+            );
         }
         $svn{$dir}{pkgname} = $parser->dpkg()->{Source};