Merge pull request #490 from drdrew42/bugfix-AskSage

AskSage should not match just any "100" in response header
openwebwork · Sep 6, 2020 · a284c3b · a284c3b
2 parents 26d1f93 + 30fe56c
commit a284c3b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/WeBWorK/PG/IO.pm b/lib/WeBWorK/PG/IO.pm
@@ -326,8 +326,8 @@ sub query_sage_server {
 	 	my $header_block = shift(@lines);
 	 	warn "checking for header:  $header_block" if $debug;
 	 	next unless $header_block=~/\S/; #skip empty lines;
-	 	next if $header_block=~/HTTP/ and $header_block=~/100/; # skip continue line
-	 	if ($header_block=~/200/) { # 200 return is ok
+	 	next if ($header_block =~ m!HTTP[ 12/.]+100!); # skip continue line
+	 	if ($header_block=~ m!HTTP[ 12/.]+200!) { # 200 return is ok
 	 		$header_ok=1;
 	 		last;
 	 	}