diff options
| author | Yang Tse <yangsita@gmail.com> | 2011-12-30 03:36:18 +0100 |
|---|---|---|
| committer | Yang Tse <yangsita@gmail.com> | 2011-12-30 03:36:18 +0100 |
| commit | ed0364343dc2472fdc6a390bb00c3e20152e8e6f (patch) | |
| tree | 5602c9828ae26fe36e583d7975f711c35ab504a3 /perl | |
| parent | 5c0ad9581dc0d59ba4e425e54589cdc2b6cb7ac5 (diff) | |
removed trailing whitespace
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/contrib/checklinks.pl.in | 2 | ||||
| -rwxr-xr-x | perl/contrib/crawlink.pl | 4 | ||||
| -rw-r--r-- | perl/contrib/getlinks.pl.in | 4 |
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 } |