diff options
| author | Alex Harpin <development@landsofshadow.co.uk> | 2015-02-08 14:07:08 +0000 |
|---|---|---|
| committer | Alex Harpin <development@landsofshadow.co.uk> | 2015-02-08 14:07:08 +0000 |
| commit | b9eb029a46cc7d233979dd90457e26a0de921c9f (patch) | |
| tree | 54edc7a2163d7749908c2a7a69a25112ef8dbce1 | |
| parent | 628cb48a035c3351ff235e1d5143ac98fda9de89 (diff) | |
| download | vyatta-wanloadbalance-b9eb029a46cc7d233979dd90457e26a0de921c9f.tar.gz vyatta-wanloadbalance-b9eb029a46cc7d233979dd90457e26a0de921c9f.zip | |
vyatta-wanloadbalance: formatting changes for style consistency
Update scripts/http_test.pl to have consistent identation levels and
style throughout.
| -rw-r--r-- | scripts/http_test.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/scripts/http_test.pl b/scripts/http_test.pl index 68f8c97..4d15f46 100644 --- a/scripts/http_test.pl +++ b/scripts/http_test.pl @@ -17,7 +17,6 @@ use JSON; use Data::Dumper; use URI::Escape; - my $iface = $ENV{WLB_SCRIPT_IFACE}; my $code; @@ -28,10 +27,9 @@ my @out = `curl -s -m 3 --interface $iface -i -X GET www.google.com`; #now process output, for http status code and for response body foreach my $out (@out) { if ($out =~ /^HTTP\/[\d.]+\s+(\d+)\s+.*$/) { - $code = $1; - } - elsif ($out =~ /^\r/ || defined $body) { - $body .= $out; + $code = $1; + } elsif ($out =~ /^\r/ || defined $body) { + $body .= $out; } } |