aboutsummaryrefslogtreecommitdiff
path: root/perl/contrib/crawlink.pl
diff options
context:
space:
mode:
Diffstat (limited to 'perl/contrib/crawlink.pl')
-rwxr-xr-xperl/contrib/crawlink.pl4
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
}