diff options
Diffstat (limited to 'perl/contrib/crawlink.pl')
-rwxr-xr-x | perl/contrib/crawlink.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/contrib/crawlink.pl b/perl/contrib/crawlink.pl index 8cb239a62..c224be005 100755 --- a/perl/contrib/crawlink.pl +++ b/perl/contrib/crawlink.pl @@ -135,7 +135,7 @@ sub SplitURL { $getserver = $2; $getpath = $3; $getdocument = ""; - + if($getpath !~ /\//) { $getpath =""; $getdocument = $3; @@ -256,7 +256,7 @@ sub GetLinks { while($in =~ /[^<]*(<[^>]+>)/g ) { # we have a tag in $1 my $tag = $1; - + if($tag =~ /^<!--/) { # this is a comment tag, ignore it } |