r8895 - /scripts/qa/DebianQA/Svn.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Tue Nov 6 08:31:53 UTC 2007
Author: tincho-guest
Date: Tue Nov 6 08:31:53 2007
New Revision: 8895
URL: http://svn.debian.org/wsvn/?sc=1&rev=8895
Log:
Small error in SVN
Modified:
scripts/qa/DebianQA/Svn.pm
Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=8895&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Tue Nov 6 08:31:53 2007
@@ -157,7 +157,7 @@
my %svn2;
foreach(keys(%$cdata)) {
next unless ref($cdata->{$_});
- my $pkgname = $cdata->{$_}{pkgname};
+ my $pkgname = $cdata->{$_}{pkgname} or next;
# Shallow copy, it's enough here, but can't be used for anything else
$svn2{$pkgname} = { %{$cdata->{$_}} };
$svn2{$pkgname}{dir} = $_;
More information about the Pkg-perl-cvs-commits
mailing list