perl/modules/W3C/LinkChecker/bin checklink,4.40,4.41

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv26456

Modified Files:
	checklink 
Log Message:
Add some TODOs for #29.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.40
retrieving revision 4.41
diff -u -d -r4.40 -r4.41
--- checklink	15 Oct 2006 18:25:50 -0000	4.40
+++ checklink	19 Oct 2006 21:14:40 -0000	4.41
@@ -404,6 +404,7 @@
   $uri =~ s/^\s+//g;
   if ($uri =~ m/^file:/) {
     # Only the http scheme is allowed
+    # TODO: bug 29
     &file_uri($uri);
   } elsif ($uri !~ m/:/) {
     if ($uri =~ m|^//|) {
@@ -799,6 +800,7 @@
   foreach my $u (keys %links) {
 
     # Don't check mailto: URI's
+    # TODO: bug 29
     next if ($u =~ m/^mailto:/);
 
     if ($Opts{Summary_Only}) {
@@ -1370,6 +1372,7 @@
   # $redirects is a map of the redirects encountered
 
   # Checking file: URI's is not allowed with a CGI
+  # TODO: bug 29
   if ($testing ne $uri) {
     if (!$Opts{Command_Line} && $testing !~ m/^file:/ && $uri =~ m/^file:/) {
       my $msg = 'Error: \'file:\' URI not allowed';

Received on Thursday, 19 October 2006 21:14:57 UTC