From: Jan Willamowius Date: Wed, 14 Sep 2005 10:21:10 +0000 (+0000) Subject: remove trailing _spaces_ X-Git-Tag: spong-2_8_0-beta1~12 X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=256a69d3059ed98dafda9a55e7968da20f0eefd8;p=spong.git remove trailing _spaces_ --- diff --git a/src/lib/Spong/Network/plugins/check_http b/src/lib/Spong/Network/plugins/check_http index 7db7d4d..b6e4a72 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"; - $method =~ s/\w$//; # remove trailing spaces + $method =~ s/\s$//; # remove trailing spaces my($hpart,$urlpath) = ( $url =~ m|^([^/]+)(/.*)| ); my($hname,$port) = split(/:/,$hpart); $port = 80 if ! $port;