r9585 - /scripts/qa/DebianQA/Svn.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Mon Nov 19 04:54:49 UTC 2007
Author: tincho-guest
Date: Mon Nov 19 04:54:49 2007
New Revision: 9585
URL: http://svn.debian.org/wsvn/?sc=1&rev=9585
Log:
Remove stamps from pkglist
Modified:
scripts/qa/DebianQA/Svn.pm
Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=9585&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Mon Nov 19 04:54:49 2007
@@ -236,10 +236,15 @@
}
# Returns the list of source packages detected in the svn repository
sub get_pkglist {
- return keys(%{ read_cache("consolidated", "pkglist", 0) });
+ my $list = get_pkglist_hashref();
+ return keys %$list;
}
sub get_pkglist_hashref {
- return read_cache("consolidated", "pkglist", 0);
+ my $list = read_cache("consolidated", "pkglist", 0);
+ foreach(grep({ /^\// } keys %$list)) {
+ delete $list->{$_};
+ }
+ return $list;
}
# Parses watchfile, returns an arrayref containing one element for each source,
# consisting of the URL spec, an MD5 sum of the line (to detect changes from
More information about the Pkg-perl-cvs-commits
mailing list