This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository liblwp-authen-wsse-perl.

commit fe0d0178a75f79ab7cc032e92b7118c040c0f982
Author: gregor herrmann <gre...@debian.org>
Date:   Sun Sep 13 16:34:43 2015 +0200

    Replace direct changes to code with a quilt patch.
---
 META.yml                        |  2 +-
 Makefile.PL                     |  2 +-
 debian/patches/digest-sha.patch | 60 +++++++++++++++++++++++++++++++++++++++++
 debian/patches/series           |  1 +
 lib/LWP/Authen/Wsse.pm          |  6 ++---
 5 files changed, 66 insertions(+), 5 deletions(-)

diff --git a/META.yml b/META.yml
index c492bda..c42a82d 100644
--- a/META.yml
+++ b/META.yml
@@ -9,7 +9,7 @@ no_index:
     - inc
     - t
 requires:
-  Digest::SHA: 0
+  Digest::SHA1: 0
   LWP: 0
   MIME::Base64: 0
   perl: 5.004
diff --git a/Makefile.PL b/Makefile.PL
index a867d2c..b51b7f1 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -6,7 +6,7 @@ author          'Audrey Tang <aud...@audrey.org>';
 all_from        'lib/LWP/Authen/Wsse.pm';
 
 requires        'LWP';
-requires        'Digest::SHA';
+requires        'Digest::SHA1';
 requires        'MIME::Base64';
 
 sign;
diff --git a/debian/patches/digest-sha.patch b/debian/patches/digest-sha.patch
new file mode 100644
index 0000000..5869c0a
--- /dev/null
+++ b/debian/patches/digest-sha.patch
@@ -0,0 +1,60 @@
+Description: replace Digest::SHA1 with Digest::SHA (in perl core)
+Origin: vendor
+Bug: http://rt.cpan.org/Public/Bug/Display.html?id=81488
+Forwarded: http://rt.cpan.org/Public/Bug/Display.html?id=81488
+Bug-Debian: https://bugs.debian.org/694486
+Author: Salvatore Bonaccorso <car...@debian.org>
+Reviewed-by: gregor herrmann <gre...@debian.org>
+Last-Update: 2015-09-13
+
+--- a/META.yml
++++ b/META.yml
+@@ -9,7 +9,7 @@
+     - inc
+     - t
+ requires:
+-  Digest::SHA1: 0
++  Digest::SHA: 0
+   LWP: 0
+   MIME::Base64: 0
+   perl: 5.004
+--- a/Makefile.PL
++++ b/Makefile.PL
+@@ -6,7 +6,7 @@
+ all_from        'lib/LWP/Authen/Wsse.pm';
+ 
+ requires        'LWP';
+-requires        'Digest::SHA1';
++requires        'Digest::SHA';
+ requires        'MIME::Base64';
+ 
+ sign;
+--- a/lib/LWP/Authen/Wsse.pm
++++ b/lib/LWP/Authen/Wsse.pm
+@@ -6,7 +6,7 @@
+ 
+ $LWP::Authen::Wsse::VERSION = '0.05';
+ 
+-use Digest::SHA1 ();
++use Digest::SHA  ();
+ use MIME::Base64 ();
+ 
+ =head1 NAME
+@@ -75,7 +75,7 @@
+     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 make_nonce {
+-    Digest::SHA1::sha1( time() . {} . rand() . $PID );
++    Digest::SHA::sha1( time() . {} . rand() . $PID );
+ }
+ 
+ sub now_w3cdtf {
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..ba2b602
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+digest-sha.patch
diff --git a/lib/LWP/Authen/Wsse.pm b/lib/LWP/Authen/Wsse.pm
index bb26283..a5d9046 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::SHA  ();
+use Digest::SHA1 ();
 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::SHA::sha1( $nonce . $now . $pass ), WITHOUT_LINEBREAK
+        Digest::SHA1::sha1( $nonce . $now . $pass ), WITHOUT_LINEBREAK
     );
 
     my $auth_header = ( $proxy ? 'Proxy-Authorization' : 'Authorization' );
@@ -114,7 +114,7 @@ sub authenticate {
 }
 
 sub make_nonce {
-    Digest::SHA::sha1( time() . {} . rand() . $PID );
+    Digest::SHA1::sha1( time() . {} . rand() . $PID );
 }
 
 sub now_w3cdtf {

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/liblwp-authen-wsse-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to