lintian: r246 - trunk/lib

[jeroen@wolffelaar.nl]

Author: jeroen
Date: 2004-05-02 19:49:02 +0200 (Sun, 02 May 2004)
New Revision: 246

Modified:
   trunk/lib/Tags.pm
Log:
Remove accidental debug command

Modified: trunk/lib/Tags.pm
===================================================================
--- trunk/lib/Tags.pm	2004-05-02 17:14:15 UTC (rev 245)
+++ trunk/lib/Tags.pm	2004-05-02 17:49:02 UTC (rev 246)
@@ -34,6 +34,7 @@
 
 # What to print between the "E:" and the tag, f.e. "package source"
 our $prefix = undef;
+our $show_info = 0;
 
 # The master hash with all tag info. Key is a hash too, with these stuff:
 # - tag: short name
@@ -64,6 +65,7 @@
 sub tag {
 	my $tag = shift;
 	my $info = $tags{$tag};
+	return if not $show_info and $info->{'type'} eq 'info';
 	my $extra = '';
 	$extra = ' '.join(' ', @_) if $#_ >=0;
 	$extra = '' if $extra eq ' ';