diff options
Diffstat (limited to 'perl/contrib/getlinks.pl.in')
-rw-r--r-- | perl/contrib/getlinks.pl.in | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/contrib/getlinks.pl.in b/perl/contrib/getlinks.pl.in index 9bdc2bc7b..7253f1e7b 100644 --- a/perl/contrib/getlinks.pl.in +++ b/perl/contrib/getlinks.pl.in @@ -90,7 +90,7 @@ sub SplitURL { $getserver = $2; $getpath = $3; $getdocument = ""; - + if($getpath !~ /\//) { $getpath =""; $getdocument = $3; @@ -176,7 +176,7 @@ sub GetLinks { while($in =~ /[^<]*(<[^>]+>)/g ) { # we have a tag in $1 $tag = $1; - + if($tag =~ /^<!--/) { # this is a comment tag, ignore it } |