[SCM] Debian package checker branch, master, updated. 2.5.2-17-g316dd97
The following commit has been merged in the master branch:
commit 316dd97dc54ed95685268a2ac0db2245bd9f3da7
Author: Niels Thykier <niels@thykier.net>
Date: Sun Aug 14 15:58:43 2011 +0200
Undo part 39af0d7, allow $CURRENT and @CURRENT to co-exists
diff --git a/checks/standards-version b/checks/standards-version
index 135b884..ee70d0d 100644
--- a/checks/standards-version
+++ b/checks/standards-version
@@ -39,9 +39,12 @@ my $STANDARDS = Lintian::Data->new('standards-version/release-dates', qr/\s+/o);
# by release date. We can also use this to get the current standards version.
my @STANDARDS = sort { $b->[1] <=> $a->[1] }
map { [ $_, $STANDARDS->value($_) ] } $STANDARDS->all;
-my $CURRENT_VER = $STANDARDS[0][0];
my $CURRENT_DATE = $STANDARDS[0][1];
-my @CURRENT = split(m/\./, $CURRENT_VER);
+
+# In scalar context you get the string (e.g. "3.9.2")
+# and in list context you get it split into pieces (3, 9, 2)
+my $CURRENT = $STANDARDS[0][0];
+my @CURRENT = split(m/\./, $CURRENT);
sub run {
@@ -99,7 +102,7 @@ if (defined $dist && $dist ne 'UNRELEASED' && $STANDARDS->known($stdver)
tag 'timewarp-standards-version', "($package < $release)";
}
-my $tag = "$version (current is $CURRENT_VER)";
+my $tag = "$version (current is $CURRENT)";
if (not $STANDARDS->known($stdver)) {
# Unknown standards version. Perhaps newer?
if ( ($major > $CURRENT[0])
@@ -110,7 +113,7 @@ if (not $STANDARDS->known($stdver)) {
} else {
tag 'invalid-standards-version', $version;
}
-} elsif ($stdver eq $CURRENT_VER) {
+} elsif ($stdver eq $CURRENT) {
# Current standard. Nothing more to check.
return 0;
} else {
--
Debian package checker
Reply to: