fix incorrect regex used for testing the response line (amends tokuhirom#80)

kazuho · kazuho · commit 91ebdf86693c · 2014-12-24T16:26:07.000+09:00
diff --git a/lib/Furl/HTTP.pm b/lib/Furl/HTTP.pm
@@ -681,7 +681,7 @@ sub connect_ssl_over_proxy {
         return (undef, "Cannot read proxy response: " . _strerror_or_timeout());
     } elsif ( $read == 0 ) {    # eof
         return (undef, "Unexpected EOF while reading proxy response");
-    } elsif ( $buf !~ /^HTTP\/1.[01] 200 .+\015\012/ ) {
+    } elsif ( $buf !~ /^HTTP\/1\.[0-9] 200 .+\015\012/ ) {
         return (undef, "Invalid HTTP Response via proxy");
     }
 

Original file line number	Diff line number	Diff line change
`@@ -681,7 +681,7 @@ sub connect_ssl_over_proxy {`
`681`	`681`	`return (undef, "Cannot read proxy response: " . _strerror_or_timeout());`
`682`	`682`	`} elsif ( $read == 0 ) { # eof`
`683`	`683`	`return (undef, "Unexpected EOF while reading proxy response");`
`684`		`- } elsif ( $buf !~ /^HTTP\/1.[01] 200 .+\015\012/ ) {`
	`684`	`+ } elsif ( $buf !~ /^HTTP\/1\.[0-9] 200 .+\015\012/ ) {`
`685`	`685`	`return (undef, "Invalid HTTP Response via proxy");`
`686`	`686`	`}`
`687`	`687`