diff options
| author | Yang Tse <yangsita@gmail.com> | 2010-02-14 19:40:18 +0000 |
|---|---|---|
| committer | Yang Tse <yangsita@gmail.com> | 2010-02-14 19:40:18 +0000 |
| commit | a07bc79117971b96ebf3188c0a34a73ee0a3609b (patch) | |
| tree | 4c5f985bd2bd407871dfc9d4bc8c05cbaa9851e2 /perl/contrib/checklinks.pl.in | |
| parent | 2268657272e591948467135dcd713bd80e3212b3 (diff) | |
| download | curl-a07bc79117971b96ebf3188c0a34a73ee0a3609b.tar.gz | |
removed trailing whitespace
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}) { |