aboutsummaryrefslogtreecommitdiff
path: root/perl/contrib/getlinks.pl.in
diff options
context:
space:
mode:
Diffstat (limited to 'perl/contrib/getlinks.pl.in')
-rw-r--r--perl/contrib/getlinks.pl.in4
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
}