[SCM] Debian package checker branch, master, updated. 2.1.6-19-g6928edf

["Russ Allbery" <rra@debian.org>]

The following commit has been merged in the master branch:
commit e4a3759f5026f9e4153933d82000514eebcceb78
Author: Raphael Geissert <atomo64@gmail.com>
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 <atomo64@gmail.com>

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