diff options
Diffstat (limited to 'perl/contrib/checklinks.pl.in')
-rw-r--r-- | perl/contrib/checklinks.pl.in | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl/contrib/checklinks.pl.in b/perl/contrib/checklinks.pl.in index 6be659faa..1b453742f 100644 --- a/perl/contrib/checklinks.pl.in +++ b/perl/contrib/checklinks.pl.in @@ -103,7 +103,7 @@ sub SplitURL { $getpath =""; $getdocument = $3; } - + } elsif ($inurl=~ /^([^:]+):\/\/(.*)/ ) { $getprotocol = $1; @@ -199,7 +199,7 @@ sub LinkWorks { return "GOOD"; } else { - + if($head && ($error >= 500)) { # This server doesn't like HEAD! @doc = `$linkcheckfull \"$check\"`; @@ -223,7 +223,7 @@ sub GetLinks { $tag = $1; if($tag =~ /^<!--/) { - # this is a comment tag, ignore it + # this is a comment tag, ignore it } else { if($tag =~ /(src|href|background|archive) *= *(\"[^\"]\"|[^ )>]*)/i) { @@ -239,7 +239,7 @@ sub GetLinks { if($url eq "") { # if the link was nothing than a #-link it may now have # been emptied completely so then we skip the rest - next getlinkloop; + next getlinkloop; } if($done{$url}) { |