r16020 - /scripts/qa/DebianQA/Svn.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Sat Mar 1 07:21:41 UTC 2008
Author: tincho-guest
Date: Sat Mar 1 07:21:40 2008
New Revision: 16020
URL: http://svn.debian.org/wsvn/?sc=1&rev=16020
Log:
Curse Parse::DebianChangelog docs
Modified:
scripts/qa/DebianQA/Svn.pm
Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=16020&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Sat Mar 1 07:21:40 2008
@@ -341,7 +341,7 @@
"\n",
map( $lastchl->$_, qw(Header Changes Trailer) ),
);
- $svn{$dir}{closes}{$_} = "released" foreach($lastchl->Closes);
+ $svn{$dir}{closes}{$_} = "released" foreach(@{$lastchl->Closes});
}
if($unfinishedchl) {
$svn{$dir}{un_version} = $unfinishedchl->Version;
@@ -352,7 +352,7 @@
map( $unfinishedchl->$_, qw(Header Changes Trailer) ),
);
$svn{$dir}{closes}{$_} = "unreleased"
- foreach($unfinishedchl->Closes);
+ foreach(@{$unfinishedchl->Closes});
}
if($svn{$dir}{pkgname} ne $parser->dpkg()->{Source}) {
$svn{$dir}{error} = "SourceNameMismatch";
More information about the Pkg-perl-cvs-commits
mailing list