]> git.etc.gen.nz Git - spong.git/commitdiff
remove trailing _spaces_
authorJan Willamowius <jan@willamowius.de>
Wed, 14 Sep 2005 10:21:10 +0000 (10:21 +0000)
committerJan Willamowius <jan@willamowius.de>
Wed, 14 Sep 2005 10:21:10 +0000 (10:21 +0000)
src/lib/Spong/Network/plugins/check_http

index 7db7d4dc7f90f2eea2a7f7bef2c4537cf6302310..b6e4a728559e82363dc3e1c2bc1541e7aced3e30 100755 (executable)
@@ -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;