From 6958ea85733e821e2e47574ccec92c3498d94372 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Michal=20=C5=A0pa=C4=8Dek?= <tupinek@gmail.com>
Date: Mon, 1 Sep 2014 16:15:05 +0200
Subject: [PATCH] Rewrite Digest::SHA1 to Digest::SHA.

I mean, that is time to remove Digest::SHA1 dependency.
Is obsolete in Debian (see https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=594273)
When i see to releases of Digest::SHA1 and Digest::SHA is Digest::SHA1 obsolete.
---
 cpanfile                           | 2 +-
 lib/Protocol/WebSocket/Response.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/cpanfile b/cpanfile
index e7de2ea..811f410 100644
--- a/cpanfile
+++ b/cpanfile
@@ -1,4 +1,4 @@
 requires 'Carp'         => 0;
 requires 'Digest::MD5'  => 0;
-requires 'Digest::SHA1' => 0;
+requires 'Digest::SHA'  => 0;
 requires 'Scalar::Util' => 0;
diff --git a/lib/Protocol/WebSocket/Response.pm b/lib/Protocol/WebSocket/Response.pm
index 64ef106..f8fd589 100644
--- a/lib/Protocol/WebSocket/Response.pm
+++ b/lib/Protocol/WebSocket/Response.pm
@@ -7,7 +7,7 @@ use base 'Protocol::WebSocket::Message';
 
 require Carp;
 use MIME::Base64 ();
-use Digest::SHA1 ();
+use Digest::SHA ();
 
 use Protocol::WebSocket::URL;
 use Protocol::WebSocket::Cookie::Response;
@@ -91,7 +91,7 @@ sub headers {
 
         my $key = $self->key;
         $key .= '258EAFA5-E914-47DA-95CA-C5AB0DC85B11'; # WTF
-        $key = Digest::SHA1::sha1($key);
+        $key = Digest::SHA::sha1($key);
         $key = MIME::Base64::encode_base64($key);
         $key =~ s{\s+}{}g;