From: Jan Willamowius <jan@willamowius.de>
Date: Wed, 14 Sep 2005 10:17:50 +0000 (+0000)
Subject: remove trailingg spaces properly
X-Git-Tag: spong-2_8_0-beta1~13
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=82c823aaaac17eb3e5681091f09ef45c0a647c6e;p=spong.git

remove trailingg spaces properly
---

diff --git a/src/lib/Spong/Network/plugins/check_http b/src/lib/Spong/Network/plugins/check_http
index 25e43ba..7db7d4d 100755
--- a/src/lib/Spong/Network/plugins/check_http
+++ b/src/lib/Spong/Network/plugins/check_http
@@ -30,7 +30,7 @@ sub check_http {
          # Parse the URL into it's components
          $url =~ s|^([A-Z]+ )?http://||;  # Remove the protocol id if present
          $method = $1 || "HEAD";
-         chop($method);				# remove trailing space
+         $method =~ s/\w$//;	# remove trailing spaces
          my($hpart,$urlpath) = ( $url =~ m|^([^/]+)(/.*)| );
          my($hname,$port) = split(/:/,$hpart);
          $port = 80 if ! $port;