summaryrefslogtreecommitdiff
path: root/perl/contrib/checklinks.pl.in
diff options
context:
space:
mode:
Diffstat (limited to 'perl/contrib/checklinks.pl.in')
-rw-r--r--perl/contrib/checklinks.pl.in8
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}) {