perl/modules/W3C/LinkChecker/bin checklink,4.110,4.111

Update of /
In directory hutz:/tmp/cvs-serv4438

Modified Files:
checklink
Log Message:
removed unused vars - Patch courtesy of Michael Ernst

Index: checklink

RCS file: /,v
retrieving revision 4.110
retrieving revision 4.111
diff -u -d -r4.110 -r4.111
checklink 3 Jul 2008 19:46:35 -0000 4.110
checklink 3 Jul 2008 19:48:04 -0000 4.111
@@ -1919,7 +1919,6 @@
my $whattodo;
my $redirect_too;
if ($todo) {
- my $currmsg = $currloc->{message} || '';
if ($u =~ m/^javascript:/) {
if (${HTML}) {
$whattodo =
@@ -2024,7 +2023,6 @@
# List of lines
$lines_list);
if ($#fragments >= 0) {
- my $fragment_direction = '';
printf("<dd>Broken fragments: <ul>\n");
}
} else {