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/getlinks.pl.in | |
| parent | 2268657272e591948467135dcd713bd80e3212b3 (diff) | |
removed trailing whitespace
Diffstat (limited to 'perl/contrib/getlinks.pl.in')
| -rw-r--r-- | perl/contrib/getlinks.pl.in | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl/contrib/getlinks.pl.in b/perl/contrib/getlinks.pl.in index 1ef0d3e27..0783e2d63 100644 --- a/perl/contrib/getlinks.pl.in +++ b/perl/contrib/getlinks.pl.in @@ -95,7 +95,7 @@ sub SplitURL { $getpath =""; $getdocument = $3; } - + } elsif ($inurl=~ /^([^:]+):\/\/(.*)/ ) { $getprotocol = $1; @@ -178,7 +178,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) { @@ -194,7 +194,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}) { |