checklink: unused local variables

• From: Michael Ernst <mernst@csail.mit.edu>
• Date: Sun, 29 Jun 2008 20:16:25 +0200
• To: www-validator@w3.org
• Message-ID: <18535.53625.990228.105843@swsmde.ds.mpi-sws.mpg.de>

This patch removes two local variables that are never used.

                    -Michael Ernst

diff -u -b -r --exclude=CVS --exclude=.hg --exclude=.svn /DS/home-0/mernst/bin/src/perl/W3C-LinkChecker/perl/modules/W3C/LinkChecker/bin/checklink-orig /DS/home-0/mernst/bin/src/perl/W3C-LinkChecker/perl/modules/W3C/LinkChecker/bin/checklink-unused-vars
--- /DS/home-0/mernst/bin/src/perl/W3C-LinkChecker/perl/modules/W3C/LinkChecker/bin/checklink-orig	2008-06-29 20:12:02.185277047 +0200
+++ /DS/home-0/mernst/bin/src/perl/W3C-LinkChecker/perl/modules/W3C/LinkChecker/bin/checklink-unused-vars	2008-06-29 20:14:58.764065406 +0200
@@ -1911,7 +1911,6 @@
     my $whattodo;
     my $redirect_too;
     if ($todo) {
-      my $currmsg = $currloc->{message} || '';
       if ($u =~ m/^javascript:/) {
         if ($Opts{HTML}) {
           $whattodo =
@@ -2016,7 +2015,6 @@
              # List of lines
              $lines_list);
       if ($#fragments >= 0) {
-        my $fragment_direction = '';
         printf("<dd>Broken fragments: <ul>\n");
       }
     } else {

Diff finished.  Sun Jun 29 20:15:02 2008

Received on Sunday, 29 June 2008 18:17:03 UTC