From ed0364343dc2472fdc6a390bb00c3e20152e8e6f Mon Sep 17 00:00:00 2001
From: Yang Tse <yangsita@gmail.com>
Date: Fri, 30 Dec 2011 03:36:18 +0100
Subject: removed trailing whitespace

---
 perl/contrib/checklinks.pl.in | 2 +-
 perl/contrib/crawlink.pl      | 4 ++--
 perl/contrib/getlinks.pl.in   | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'perl/contrib')

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
         }
-- 
cgit v1.2.3