checklink: local variable names

It's poor style for local variables to shadow existing variables -- that
is, to reuse the same variable name in a smaller scope.  This patch
corrects a few such problems in checklink.

                    -Mike

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.116
diff -u -u -b -r4.116 checklink
--- checklink	22 Sep 2008 19:33:31 -0000	4.116
+++ checklink	30 Sep 2008 07:16:38 -0000
@@ -1823,18 +1917,18 @@
 # Determine if a request is redirected
 sub is_redirected ($%)
 {
-  my ($uri, %redirects) = @_;
-  return(defined($redirects{$uri}));
+  my ($uri, %my_redirects) = @_;
+  return(defined($my_redirects{$uri}));
 }
 
 # Get a list of redirects for a URI
 sub get_redirects ($%)
 {
-  my ($uri, %redirects) = @_;
+  my ($uri, %my_redirects) = @_;
   my @history = ($uri);
   my %seen = ($uri => 1); # for tracking redirect loops
   my $loop = 0;
-  while ($redirects{$uri}) {
+  while ($my_redirects{$uri}) {
     $uri = $redirects{$uri};
     push(@history, $uri);
     if ($seen{$uri}) {