[SCM] Debian packaging of liblwp-authen-wsse-perl branch, master, updated. debian/0.05-2-9-g075c503

Salvatore Bonaccorso carnil at debian.org
Tue Nov 27 22:11:52 UTC 2012


The following commit has been merged in the master branch:
commit 6eed5841e15de559e5d571584bd95902a201a7a1
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Tue Nov 27 17:36:57 2012 +0100

    Use Digest::SHA instead of Digest::SHA1
    
    libdigest-sha1-perl package was reoved from Debian. Digest::SHA is part
    of Perl core modules included with the perl interpreter since 5.10.
    
    Thanks: Ansgar Burchardt <ansgar at debian.org>
    Closes: #694486

diff --git a/META.yml b/META.yml
index c42a82d..c492bda 100644
--- a/META.yml
+++ b/META.yml
@@ -9,7 +9,7 @@ no_index:
     - inc
     - t
 requires:
-  Digest::SHA1: 0
+  Digest::SHA: 0
   LWP: 0
   MIME::Base64: 0
   perl: 5.004
diff --git a/Makefile.PL b/Makefile.PL
index b51b7f1..a867d2c 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -6,7 +6,7 @@ author          'Audrey Tang <audrey at audrey.org>';
 all_from        'lib/LWP/Authen/Wsse.pm';
 
 requires        'LWP';
-requires        'Digest::SHA1';
+requires        'Digest::SHA';
 requires        'MIME::Base64';
 
 sign;
diff --git a/lib/LWP/Authen/Wsse.pm b/lib/LWP/Authen/Wsse.pm
index a5d9046..bb26283 100644
--- a/lib/LWP/Authen/Wsse.pm
+++ b/lib/LWP/Authen/Wsse.pm
@@ -6,7 +6,7 @@ use English qw( -no_match_vars );
 
 $LWP::Authen::Wsse::VERSION = '0.05';
 
-use Digest::SHA1 ();
+use Digest::SHA  ();
 use MIME::Base64 ();
 
 =head1 NAME
@@ -75,7 +75,7 @@ sub authenticate {
     my $nonce     = $class->make_nonce;
     my $nonce_enc = MIME::Base64::encode_base64( $nonce, WITHOUT_LINEBREAK );
     my $digest    = MIME::Base64::encode_base64(
-        Digest::SHA1::sha1( $nonce . $now . $pass ), WITHOUT_LINEBREAK
+        Digest::SHA::sha1( $nonce . $now . $pass ), WITHOUT_LINEBREAK
     );
 
     my $auth_header = ( $proxy ? 'Proxy-Authorization' : 'Authorization' );
@@ -114,7 +114,7 @@ sub authenticate {
 }
 
 sub make_nonce {
-    Digest::SHA1::sha1( time() . {} . rand() . $PID );
+    Digest::SHA::sha1( time() . {} . rand() . $PID );
 }
 
 sub now_w3cdtf {

-- 
Debian packaging of liblwp-authen-wsse-perl



More information about the Pkg-perl-cvs-commits mailing list