lintian: r812 - trunk/depcheck

[jaalto@debian.org]

Author: jaalto
Date: 2007-01-30 15:36:47 +0100 (Tue, 30 Jan 2007)
New Revision: 812

Modified:
   trunk/depcheck/report2html.pl
Log:
* depcheck/report2html.pl
  + [JA]  perl -Istrict -cw corrections.

  Global symbol "%bugs" requires explicit package name at ./depcheck/report2html.pl line 21.
  Global symbol "$buglist" requires explicit package name at ./depcheck/report2html.pl line 22.
  Global symbol "$buglist" requires explicit package name at ./depcheck/report2html.pl line 23.
  Global symbol "$buglist" requires explicit package name at ./depcheck/report2html.pl line 23.
  Global symbol "$bugline" requires explicit package name at ./depcheck/report2html.pl line 26.
  Global symbol "@b" requires explicit package name at ./depcheck/report2html.pl line 27.
  Global symbol "$bugline" requires explicit package name at ./depcheck/report2html.pl line 28.
  Global symbol "@b" requires explicit package name at ./depcheck/report2html.pl line 29.
  Global symbol "%bugs" requires explicit package name at ./depcheck/report2html.pl line 31.
  Global symbol "$bugline" requires explicit package name at ./depcheck/report2html.pl line 31.
  Global symbol "@b" requires explicit package name at ./depcheck/report2html.pl line 31.
  Global symbol "$inmenu" requires explicit package name at ./depcheck/report2html.pl line 36.
  Global symbol "$brokendep" requires explicit package name at ./depcheck/report2html.pl line 41.
  Global symbol "$bug" requires explicit package name at ./depcheck/report2html.pl line 42.
  Global symbol "%bugs" requires explicit package name at ./depcheck/report2html.pl line 42.
  Global symbol "$bug" requires explicit package name at ./depcheck/report2html.pl line 43.
  Global symbol "%bugs" requires explicit package name at ./depcheck/report2html.pl line 44.
  Global symbol "$brokendep" requires explicit package name at ./depcheck/report2html.pl line 45.
  Global symbol "$bug" requires explicit package name at ./depcheck/report2html.pl line 45.
  Global symbol "$brokendep" requires explicit package name at ./depcheck/report2html.pl line 47.
  Global symbol "$inmenu" requires explicit package name at ./depcheck/report2html.pl line 51.
  Global symbol "$inmenu" requires explicit package name at ./depcheck/report2html.pl line 57.
  Global symbol "$inmenu" requires explicit package name at ./depcheck/report2html.pl line 61.



Modified: trunk/depcheck/report2html.pl
===================================================================
--- trunk/depcheck/report2html.pl	2007-01-30 14:34:49 UTC (rev 811)
+++ trunk/depcheck/report2html.pl	2007-01-30 14:36:47 UTC (rev 812)
@@ -1,30 +1,30 @@
 #!/usr/bin/perl -w
 
 # Copyright (C) 1998 Richard Braakman
-# 
+#
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.
-# 
+#
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
-# 
+#
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, you can find it on the World Wide
 # Web at http://www.gnu.org/copyleft/gpl.html, or write to the Free
 # Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
 # MA 02110-1301, USA.
 
-%bugs = ();
-if ($buglist = shift) {
+my %bugs;
+if (my $buglist = shift) {
     open(BUGS, $buglist) or die($buglist);
     while (<BUGS>) {
 	chop;
-	$bugline = $_;
-	@b = ();
+	my $bugline = $_;
+	my @b;
 	while ($bugline =~ s/^(\d+)\s//) {
 	    push(@b, &make_bugref($1))
 	}
@@ -33,13 +33,13 @@
     close(BUGS);
 }
 
-$inmenu = 0;
-    
+my $inmenu = 0;
+
 while (<STDIN>) {
     chop;
     if (s/^\s+//) {
-	$brokendep = &quotehtml($_);
-	$bug = $bugs{$_};
+	my $brokendep = &quotehtml($_);
+	my $bug = $bugs{$_};
 	if (defined $bug) {
 	    delete $bugs{$_};
 	    $brokendep .= '  [' . $bug . ']';