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/contrib/crawlink.pl | |
| parent | 5c0ad9581dc0d59ba4e425e54589cdc2b6cb7ac5 (diff) | |
| download | curl-ed0364343dc2472fdc6a390bb00c3e20152e8e6f.tar.gz | |
removed trailing whitespace
Diffstat (limited to 'perl/contrib/crawlink.pl')
| -rwxr-xr-x | perl/contrib/crawlink.pl | 4 |
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 } |