Bug #80491 for XML-Compile-WSS: using Digest::SHA

For simple package XML-Compile-WSS into debian change using from Digest::SHA1 into Digest::SHA. In debian no standart package for Digest::SHA1 but exists Digest::SHA Patch for replace Digest::SHA1 into Digest::SHA included.

--- libxml-compile-wss-perl-1.03.orig/Makefile.PL +++ libxml-compile-wss-perl-1.03/Makefile.PL @@ -13,7 +13,7 @@ WriteMakefile , XML::Compile::SOAP => '2.32' , Log::Report => '0.92' - , Digest::SHA1 => 0 + , Digest::SHA => 0 , Encode => 0 , Test::More => 0.54 , File::Basename => 0 --- libxml-compile-wss-perl-1.03.orig/META.yml +++ libxml-compile-wss-perl-1.03/META.yml @@ -18,7 +18,7 @@ no_index: - t - inc requires: - Digest::SHA1: 0 + Digest::SHA: 0 Encode: 0 File::Basename: 0 Log::Report: 0.92 --- libxml-compile-wss-perl-1.03.orig/META.json +++ libxml-compile-wss-perl-1.03/META.json @@ -32,7 +32,7 @@ }, "runtime" : { "requires" : { - "Digest::SHA1" : "0", + "Digest::SHA" : "0", "Encode" : "0", "File::Basename" : "0", "Log::Report" : "0.92", --- libxml-compile-wss-perl-1.03.orig/t/92old-num.t +++ libxml-compile-wss-perl-1.03/t/92old-num.t @@ -10,7 +10,7 @@ use strict ; use warnings ; -use Digest::SHA1 qw/sha1_base64/; +use Digest::SHA qw/sha1_base64/; use Encode qw/encode/; use MIME::Base64 qw/encode_base64 decode_base64/ ; --- libxml-compile-wss-perl-1.03.orig/t/12numeric_created.t +++ libxml-compile-wss-perl-1.03/t/12numeric_created.t @@ -10,7 +10,7 @@ use strict; use warnings; -use Digest::SHA1 qw/sha1_base64/; +use Digest::SHA qw/sha1_base64/; use Encode qw/encode/; use MIME::Base64 qw/encode_base64 decode_base64/; --- libxml-compile-wss-perl-1.03.orig/lib/XML/Compile/WSS.pm +++ libxml-compile-wss-perl-1.03/lib/XML/Compile/WSS.pm @@ -18,7 +18,7 @@ use XML::Compile::C14N; use XML::Compile::Schema::BuiltInTypes qw/builtin_type_info/; use File::Basename qw/dirname/; -use Digest::SHA1 qw/sha1_base64/; +use Digest::SHA qw/sha1_base64/; use Encode qw/encode/; use MIME::Base64 qw/encode_base64/; use POSIX qw/strftime/; --- libxml-compile-wss-perl-1.03.orig/lib/XML/Compile/WSS/BasicAuth.pm +++ libxml-compile-wss-perl-1.03/lib/XML/Compile/WSS/BasicAuth.pm @@ -15,7 +15,7 @@ use Log::Report 'xml-compile-wss'; use XML::Compile::WSS::Util qw/:wss11 :utp11/; -use Digest::SHA1 qw/sha1_base64/; +use Digest::SHA qw/sha1_base64/; use Encode qw/encode/; use MIME::Base64 qw/encode_base64/; use POSIX qw/strftime/; --- libxml-compile-wss-perl-1.03.orig/lib/XML/Compile/WSS/Signature.pm +++ libxml-compile-wss-perl-1.03/lib/XML/Compile/WSS/Signature.pm @@ -88,6 +88,7 @@ sub digest($$) $method =~ $digest_algorithm or error __x"digest {name} is not a correct constant"; my $algo = uc $1; + $algo =~ s/^SHA(\d+)/SHA-$1/; my $digest = try { Digest->new($algo)->add($$text)->digest }; $@ and error __x"cannot use digest method {short}, constant {name}: {err}"