[libnet-openid-common-perl] 20/34: remove hmac funcs

[gregor herrmann]

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

gregoa pushed a commit to annotated tag v1.030099_001
in repository libnet-openid-common-perl.

commit c8b33d558fa0b4a0cb5219da419f5bf82796f359
Author: Robert Norris <rob at eatenbyagrue.org>
Date:   Thu Nov 4 22:50:29 2010 +1100

    remove hmac funcs
---
 lib/Net/OpenID/Common.pm | 18 ------------------
 1 file changed, 18 deletions(-)

diff --git a/lib/Net/OpenID/Common.pm b/lib/Net/OpenID/Common.pm
index c464c59..1cf87aa 100644
--- a/lib/Net/OpenID/Common.pm
+++ b/lib/Net/OpenID/Common.pm
@@ -52,24 +52,6 @@ sub version_2_identifier_select_url {
     return "http://specs.openid.net/auth/2.0/identifier_select";
 }
 
-# From Digest::HMAC
-sub hmac_sha1_hex {
-    unpack("H*", &hmac_sha1);
-}
-sub hmac_sha1 {
-    hmac($_[0], $_[1], \&Digest::SHA1::sha1, 64);
-}
-sub hmac {
-    my($data, $key, $hash_func, $block_size) = @_;
-    $block_size ||= 64;
-    $key = &$hash_func($key) if length($key) > $block_size;
-
-    my $k_ipad = $key ^ (chr(0x36) x $block_size);
-    my $k_opad = $key ^ (chr(0x5c) x $block_size);
-
-    &$hash_func($k_opad, &$hash_func($k_ipad, $data));
-}
-
 sub parse_keyvalue {
     my $reply = shift;
     my %ret;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-openid-common-perl.git