HTTP/1.1 sends headers back more, tolerate that

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.8@15636 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2013-03-25 13:44:59 +00:00
parent bfe01b3aeb
commit 60ced905aa

View File

@ -734,6 +734,7 @@ sub send_req {
if (grep (/<html>/, $response)) { # get a error message in the html
$rc = 3;
} elsif (grep (/<\?xml/, $response)) {
$response =~ s/.*?</</ms;
my $parser = XML::LibXML->new();
my $doc = $parser->parse_string($response);
if ($doc ) {