make SOAPAction header optional

[perl-cwmp.git] / lib / CWMP / Session.pm

diff --git a/lib/CWMP/Session.pm b/lib/CWMP/Session.pm
index 27a2557..64faa00 100644 (file)
--- a/lib/CWMP/Session.pm
+++ b/lib/CWMP/Session.pm
@@ -131,7 +131,7 @@ sub process_request {
 
        if ( $size > 0 ) {
 
-               die "no SOAPAction header in ",dump($xml) unless defined ( $r->header('SOAPAction') );
+               warn "no SOAPAction header in ",dump($xml) unless defined ( $r->header('SOAPAction') );
 
                warn "## request payload: ",length($xml)," bytes\n$xml\n" if $self->debug;