diff options
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}) { |