diff options
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          } | 
