fix for SOAP 1.2 not returning faultNotImplemeted instead returns fau…

…ltNoAnswerProduced
sheeju · Jul 28, 2018 · 9e91b96 · 9e91b96
1 parent 679b3a1
commit 9e91b96
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/lib/XML/Compile/SOAP/Server.pm b/lib/XML/Compile/SOAP/Server.pm
@@ -156,6 +156,15 @@ sub compileHandler(@)
         }
 
         my $answer = $callback->($self, $data, $session);
+
+        #For SOAP 1.2 $answer returns XML::LibXML::Document object
+        #This is used for faultNotImplemented callback
+        if(ref($answer) eq 'XML::LibXML::Document') {
+            notice __x"procedure {name} is LibXML doc", name => $name;
+            return ( RC_INTERNAL_SERVER_ERROR, 'invalid answer produced'
+                   , $self->faultNotImplemented($name));
+        }
+
         unless(defined $answer)
         {   notice __x"procedure {name} did not produce an answer", name=>$name;
             return ( RC_INTERNAL_SERVER_ERROR, 'no answer produced'