The following commit has been merged in the master branch:
commit e4a3759f5026f9e4153933d82000514eebcceb78
Author: Raphael Geissert <[email protected]>
Date: Sun Jan 11 17:46:30 2009 -0600
Avoid Perl warnings on pedantic tags
Avoid Perl warnings when trying to issue pendantic tags without --pendatic.
Signed-off-by: Raphael Geissert <[email protected]>
diff --git a/lib/Tags.pm b/lib/Tags.pm
index 86ca475..72461df 100644
--- a/lib/Tags.pm
+++ b/lib/Tags.pm
@@ -292,15 +292,17 @@ sub display_tag {
my $severity = $tag_info->{'severity'};
my $certainty = $tag_info->{'certainty'};
my $level;
- if ($severity and $certainty) {
+
+ # Pedantic is just a pseudo severity, skip level checks
+ if ($severity eq 'pedantic') {
+ $level = 1 ;
+ } elsif ($severity and $certainty) {
$level = $display_level{$severity}{$certainty};
} else {
# Shouldn't happen, but avoid Perl warnings anyway.
$level = 1;
}
- # Pedantic is just a pseudo severity, skip level checks
- $level = 1 if ($severity eq 'pedantic' and $show_pedantic);
$tag_info->{'display'} = $level;
return $level if not keys %display_source;
--
Debian package checker
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
