aboutsummaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorYang Tse <yangsita@gmail.com>2011-12-30 03:36:18 +0100
committerYang Tse <yangsita@gmail.com>2011-12-30 03:36:18 +0100
commited0364343dc2472fdc6a390bb00c3e20152e8e6f (patch)
tree5602c9828ae26fe36e583d7975f711c35ab504a3 /perl
parent5c0ad9581dc0d59ba4e425e54589cdc2b6cb7ac5 (diff)
removed trailing whitespace
Diffstat (limited to 'perl')
-rw-r--r--perl/contrib/checklinks.pl.in2
-rwxr-xr-xperl/contrib/crawlink.pl4
-rw-r--r--perl/contrib/getlinks.pl.in4
3 files changed, 5 insertions, 5 deletions
diff --git a/perl/contrib/checklinks.pl.in b/perl/contrib/checklinks.pl.in
index db70bb112..324a91791 100644
--- a/perl/contrib/checklinks.pl.in
+++ b/perl/contrib/checklinks.pl.in
@@ -221,7 +221,7 @@ sub GetLinks {
while($in =~ /[^<]*(<[^>]+>)/g ) {
# we have a tag in $1
$tag = $1;
-
+
if($tag =~ /^<!--/) {
# this is a comment tag, ignore it
}
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
}
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
}