Merge XML::Sig version 0.47

Author: timlegge

Makefile.PL

@@ -24,6 +24,7 @@ my %WriteMakefileArgs = (
     "Crypt::OpenSSL::Random" => 0,
     "Crypt::OpenSSL::Verify" => 0,
     "Crypt::OpenSSL::X509" => 0,
+    "Crypt::PK::ECC" => 0,
     "DateTime" => 0,
     "DateTime::Format::XSD" => 0,
     "Digest::SHA" => 0,
@@ -85,6 +86,7 @@ my %FallbackPrereqs = (
   "Crypt::OpenSSL::Random" => 0,
   "Crypt::OpenSSL::Verify" => 0,
   "Crypt::OpenSSL::X509" => 0,
+  "Crypt::PK::ECC" => 0,
   "DateTime" => 0,
   "DateTime::Format::XSD" => 0,
   "Digest::SHA" => 0,

cpanfile

@@ -8,6 +8,7 @@ requires "Crypt::OpenSSL::RSA" => "0";
 requires "Crypt::OpenSSL::Random" => "0";
 requires "Crypt::OpenSSL::Verify" => "0";
 requires "Crypt::OpenSSL::X509" => "0";
+requires "Crypt::PK::ECC" => "0";
 requires "DateTime" => "0";
 requires "DateTime::Format::XSD" => "0";
 requires "Digest::SHA" => "0";

lib/Net/SAML2/Binding/POST.pm

@@ -61,6 +61,7 @@ sub handle_response {
     my $xml_opts = { x509 => 1 };
     $xml_opts->{ cert_text } = $self->cert_text if ($self->cert_text);
     $xml_opts->{ exclusive } = 1;
+    $xml_opts->{ no_xml_declaration } = 1;
     my $x = Net::SAML2::XML::Sig->new($xml_opts);
     my $ret = $x->verify($xml);
     die "signature check failed" unless $ret;

lib/Net/SAML2/Binding/SOAP.pm

@@ -115,7 +115,14 @@ sub handle_response {
     my ($self, $response) = @_;
 
     # verify the response
-    my $x = Net::SAML2::XML::Sig->new({ x509 => 1, cert_text => $self->idp_cert, exclusive => 1, });
+    my $x = Net::SAML2::XML::Sig->new(
+    {
+        x509 => 1,
+        cert_text => $self->idp_cert,
+        exclusive => 1,
+        no_xml_declaration => 1,
+    });
+
     my $ret = $x->verify($response);
     die "bad SOAP response" unless $ret;
 
@@ -185,6 +192,7 @@ sub create_soap_envelope {
         key  => $self->key,
         cert => $self->cert,
         exclusive => 1,
+        no_xml_declaration => 1,
     });
     my $signed_message = $sig->sign($message);